MEMORANDUM 
RM-3588-PR 

MAY 1963 



THE HEURISTIC COMPILER 

Herbert A. Simon 



PREPARED FOR: 

UNITED STATES AIR FORCE PROJECT RAND 



D-flRD, 



SANTA MONICA • CALIFORNIA 



MEMORANDUM 
RM-3588-PR 

MAY 1963 



THE HEURISTIC COMPILER 

Herbert A. Simon 



This research is sponsored by the United States Air Force under Project RAND— 
contract No. AF 49 (638) -700 monitored by the Directorate of Development Planning, 
Deputy Chief of Staff, Research and Development, Hq USAF. Views or conclusions 
contained in this Memorandum should not be interpreted as representing the official 
opinion or policy of the United States Air Force. 



mmd. 



-7& rS"H I I \J Cwtfivtatfo* 

J700 MAIN ST. • 5ANTA MONICA ■ CALIFORNIA- 



Copyright © 1963 

THE RAND CORPORATION 



-111- 



PREFACE 



The research reported in this Memorandum, rather 
than being aimed at the construction of a specific com- 
piler (a computer program for translating instructions 
from a language convenient to the programmer to the 
machine language), is directed towards deepening our 
understanding of the kinds of problem- solving activity 
that are involved in computer programming, and the kinds 
of language and representational means that are needed 
to produce more sophisticated compilers. The Memorandum 
takes the form, therefore, of a series of illustrative 
problems of compiler design, with proposals, worked out 
in some detail, for their solution. 

There has been, in the past decade, enormous progress 
in the development of higher- level programming languages 
for instructing computers. Through the invention of alge- 
braic compilers, like FORTRAN, IT, and ALGOL, data pro- 
cessing languages like COBOL, and list-processing languages 
like IFL, LISP, and COMIT, the labor of programming has 
been reduced several orders of magnitude. Yet, when we 
are faced with the complexities of modern command and 
control systems, and the programming problems they present, 
we recognize that the progress made to date is not nearly 
enough. Programming a computer to perform a complex task 
is still very much more intricate and tedious than in- 
structing an intelligent and trained human being for that 
task. 
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Most visibly, the human- -if, to repeat, he is intel- 
ligent and knowledgeable- -does not have the literalness 
of mind that is so characteristic of the computer, and so 
exasperating in our interaction with it. From his own 
store of knowledge, he supplies facts that we neglect to 
give him; given statements of objectives in broad func- 
tional terms, he applies his problem- solving powers to 
filling in the detail of method; confronted with the 
vagueness and informality of natural language, he inter- 
prets meaning and intent. 

The experiments reported in this Memorandum aim at 
further bridging the gap between the explicitness of exist- 
ing computer programming languages and the freedom and 
flexibility of human communication. The work was motivated 
by the belief that until we bridge that gap, we shall not 
be able to harness effectively the powers made available 
to us by modern digital computers and apply them to the 
vast systems (e.g., command and control) that are becoming 
such a central feature of our military and civilian tech- 
nology. 

This work is part of The RAND Corporation's continu- 
ing program of research in the area of complex information 
processing, under U.S. Air Force Project RAND. The author, 
a RAND consultant, is a member of the faculty at Carnegie 
Institute of Technology. The Memorandum is directed 
primarily to systems programmers who are faced with problems 
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of compiler design, with the hope that its proposals will 
suggest means for increasing the power, generality, and 
flexibility of compiling systems. 
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SUMMARY 



Two major themes run through the topics discussed 
in this Memorandum. The first thesis is that more of the 
programming burden can be shifted from programmer to 
computer if the computer is given some problem- solving 
powers. In previous works it has been shown how a computer 
program, the General Problem-Solver, can simulate the kinds 
of means-end analysis that humans use to solve problems.* 
Part I of the present Memorandum shows how a compiler can 
be designed that makes use of heuristic problem- solving 
techniques like those incorporated in the General Problem- 
Solver (GPS). Such a scheme permits a desired program to 
be specified in general terms, with the compiler using 
means-end analysis and selective trial-and-error search 
to work out the exact "how" of it. 

The second main theme is that if we are to have 
flexibility in a compiler language commensurate with the 
flexibility of natural language, we must first gain an 



The General Problem-Solver has been described, and 
its behavior analyzed, in several RAND publications by 
A. Newell, J. C. Shaw, and H. A. Simon: Report on a 
General Problem- Solving Program , P-1584, February 9, 1959; 
The Simulation of Human Thought , P-1734, June 22, 1959; 
A Variety of Intelligent Learning in a General Problem 
Solver . P-1742. July 6, 1959; GPS: A Program that Simulates 
Human Thought , P-2257, April 1U, 1961; Computer Simulation 
of Human Thinking , P-2276, April 20, 1961; Computer " 
Simulation of Human Thinking and Problem Solving , P-2312, 
May 29, 1961. — 

Also see, A Guide to the General Problem-Solver Program 
GPS -2 -2 , Allen Newell, RM-3337-PR, February 1963. 
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under standing of the ways in which meanings are represented 
in natural language, and then devise representations of 
corresponding power (and ambiguity) for compiling languages. 
Parts II and III are devoted primarily to questions of 
language and representation. They provide a number of 
suggestions for increasing the generality and flexibility 
of compiler languages. 

The boundaries between the three parts are largely 
chronological. Part I represents work completed during 
the winter of 1960-61; Part II, work done during the 
spring of 1961; and Part III, work done since the summer 
of 1961, particularly during the summer and autumn of 1962. 
A program listing for the main portion of the compiling 
scheme, described in Sections I-V of Part I, is given in 
Appendix A. A program listing for the annexing scheme, 
described in Sec. IX of Part III, is given in Appendix B. 
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PART I 
A PROBLEM- SOLVING COMPILER 

In this first part, we describe a compiler that makes 
use of heuristic problem- solving techniques like those 
incorporated in the General Problem- Solver (GPS).* 
Section I provides a brief introduction to the theory of 
problem solving and the structure of GPS. Section II 
shows how programming can be interpreted as a problem- 
solving activity, within this framework. Section III 
describes the main components of the compiler, and Sec. IV 
indicates how the compiler could be incorporated as a 
set of subroutines to GPS. Section V describes an exten- 
sion of the compiler to handle flow diagrams. A complete 
program listing for the compiler is given in Appendix A. 



*0p. cit., p. vii. 
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I. THEORY OF PROBLEM SOLVING 

The motivation for the Heuristic Compiler is supplied 
by a theory of problem solving that also provides the 
basic framework for the General Problem- Solver. By a 
problem, we mean a situation of the following kind: 

1. We are given a (partial) description of a present 
situation and a desired situation . These situa- 
tions are described in a language that we may 
call the state language . The state language is 
sufficiently rich to permit us to describe situa- 
tions (we shall call such descriptions objects ) , 
and to describe differences between pairs of 
situations . 

2. We are given a list of operators that can be 
applied to situations to transform them into new 
situations. Operators are named in a language 
that we may call the process language . Any 
sequence of operators named in the process language, 
also names an operator—the compound operator 

that consists in applying, successively, the 
elementary operators belonging to the sequence. 

3. A problem solution is a (compound) operator in 
the process language that will transform the 
object describing the present situation into the 
object describing the desired situation. 
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EXAMPLE: We take as the objects in the state language 
the integers, 1, 2, •••. We take as the elementary opera- 
tor the successor operation, which we shall designate as 
in the process language. Then ' " and ' ' *" are examples 
of compound operators. Consider the problem of trans- 
forming the present object 5 into the goal object 8. The 
solution is the operator "', for 5 1 ' ' =8. More generally, 
1 ' ' is the operator that removes the difference +3 between 
any two objects, x and y; for if y - x = +3, then x' ' ' = y. 
Here +3 is a difference in the state language; ' ' ' is 
the operator relevant to that difference in the process 
language. We may construct a table of connections to 
associate with each difference the operator or operators 
relevant to it. 

With this formulation of the concept of "problem ," 
many techniques of problem solving can be subsumed under 
the following general paradigm: 

MEANS-END ANALYSIS. Given the present and desired 
objects, find a difference between them. Next find 
an operator relevant to the difference; determine 
if the operator can be applied to the present object. 
If so, apply it. (If not, describe the objects to 
which it would apply and transform the present object 
into an object of that kind- -a new "desired object.") 
Take the new object thus obtained as the present 
object and repeat the process. 
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The General Problem- Solver is a program that uses 
this scheme of means-end analysis for attempting the 
solution of any problem that can be cast into the form 
described.* 



This is a bare-bone description of GPS, but it will 
suffice for our purposes . 
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II. PROGRAM WRITING AS PROBLEM SOLVING 

The task of proving a theorem can be formulated as 
a problem for GPS. The desired object is the theorem to 
be proved. The present object is the set of axioms and 
already-proved theorems . The operators are the legitimate 
processes for transforming a subset of axioms and/or 
theorems into a new theorem. We have a proof when we have 
a sequence of operators that transforms the present object 
into the desired object. (What we call a proof here is 
usually regarded as the justification for the proof steps; 
the proof, as usually written out, consists of the sequence 
of successive transformations of the axioms and given 
theorems . ) 

The sequence of operators that constitutes a proof 
can also be interpreted as a program that generates the 
desired object from the given object; for if we apply the 
operators of the proof, in sequence, to the present object 
(the axioms and previous theorems), we obtain precisely 
the desired object — the theorem to be proved. Thus, a 
theorem- proving system can be regarded, at least formally, 
as a program-writing system. Conversely, if we can formulate 
a programming goal as a difference between a present and a 
desired object, we can presumably use the same processes, 
which in the other context will generate the proof of a 
theorem, to generate a program. 
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III. OUTLINE OF A HEURISTIC CODER FOR IPL-V 

In the remainder of Part I, I shall describe a 
number of routines for compiling programs in Information 
Processing Language V (IPL-V), an interpretive list- 
processing language.* What is common to all of these 
compiling procedures is that they embody the problem- 
solving notions discussed in the preceding paragraphs. 
That is, each of the compiling routines accepts the task 
of writing programs in IPL-V on the basis of certain in- 
formation provided to it. The task is accomplished by 
the application of the means-end analysis that has been 
described. The several compiling routines differ with 
respect to their methods of formulating or representing 
the problem--that is, each operates with a different state 
language. At present, there are three compiling routines: 

1. SDSC Compiler (State Description Compiler) [U140] .* * 
This routine takes as its input a description (SDSC) of 
the contents of the relevant computer cells before and 
after the routine to be compiled has been executed. It 
produces an IPL-V routine that will transform the input 
state description into the output state description. 



See Newell, Allen (Ed.), Information Processing 
Language V Manual, Prentice -Hall, Englewood Cliffs, N.J., 
1961. 

**Expressions in square brackets are names of the 
corresponding routines, data list structures, and symbols 
in the compiler program. 



2. DSCN Compiler (Descriptive Name Compiler) [U134] . 
This routine takes as its input a verbal definition (in 
the form of an imperative sentence) of the routine to be 
compiled. It produces an IPL-V routine that is the trans- 
lation, in the interpretive language, of that definition. 

3. General Compiler [U135] . This is an executive 
routine that can use the SDSC Compiler, the DSCN Compiler, 
and others as subroutines. It takes as its input infor- 
mation about the routine to be compiled; the information 
can be stated in any one of several representations (e.g., 
those appropriate to SDSC or DSCN) . The routine then 
selects subroutines that can use this information to pro- 
duce the desired IPL-V code. 

From a logical standpoint, we could describe the 
Heuristic Coder as a single program whose executive 
routine is the General Compiler, and which contains the 
SDSC Compiler and the DSCN Compiler as subroutines. For 
clarity of exposition, it will be better to describe the 
two parts first as independent programs, and then show 
how they are imbedded in the General Compiler. 

THE SDSC COMPILER 

A computer routine can be defined by specifying the 
changes it produces in the contents of the storage loca- 
tion it affects, or, what amounts to almost the same 
thing, by specifying the before and after conditions of 
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these storage registers. A definition of this kind is 
not, of course, univocal, for programming is a synthetic, 
not an analytic task; there will generally be many programs 
(not all equally efficient or elegant) that will do the 
same work. As presently constituted, the SDSC Compiler 
attempts to find some one routine to accomplish a given 

task. 

EXAMPLE: In IPL-V there is a process, PUT SYMBOL J3 
IN MEMORY LOCATION H5, which affects a single memory 
location, H5. This process [X105] happens to have the 
name J3 ; its state description (SDSC) is the following: 

BEFORE J3 is executed, cell H5 contains a symbol, 
call it Si, followed by an indeterminate list of symbols, 
RO (call this the pushdown list associated with H5) . 

AFTER J3 has been executed, cell H5 contains the 
symbol J3, followed by the same list of symbols, RO, as 
before. The token of symbol Si that was previously in 
H5 has been destroyed. 

Notice that it is implicit in this SDSC definition 
of J3 that the content of no cell other than H5 has been 
altered by the routine. We can represent the SDSC [the 
value of attribute X24 of the routine] diagrammatically 
as follows : 
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SDSC 


of 


J3 








Affected Ce 


lis 




H5 








S1,R0 
J3,R0. 





Input 
Output 

Generalizing, the SDSC of a routine consists of a 
list of affected cells [attribute X71 of X24]. For each 
affected cell on the list, the SDSC specifies its input 
state [attribute X75 of X71] and its output state 
[attribute X76 of X71]. 

To compile the IPL-V code (JDEF) for J3, the SDSC 
Compiler [U140] proceeds as follows : 

1. It matches [X7] the input states with the output 
states of the affected cells until it finds a difference . 
In the example cited, the difference between the input 
and output states of H5 may be called a replacement in H5 . 

2. It searches [U150] a table of connections [X90] 
that associates with each difference a list of operators 
(compiled IFL-V routines) that are relevant to that dif- 
ference. In the example, the table of connections would 
contain, associated with the replacement difference [X83], 
the IPL-V routine P2(C) [X106] . P2(C) replaces the 
symbol in cell C, a variable, with the symbol in cell HO. 
Thus, P2(C) has the following SDSC [see local 95 of X106] : 
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SDSC of P2(C) 

Affected Cells 

HO C 

Input S2,R0 S1,R0 

Output R0 S2,R0. 

3. It tentatively applies [U141] the relevant op- 
erator it has found to the input state of the SDSC to be 
compiled, and determines the resulting output state. In 
applying the operator, it makes appropriate substitutions 
for the variables in the operator [U153, U154] . Thus, 
applying P2(C) to the input of J3, we find, by matching, 
that we should set C = H5 and S2 = J3, giving: 

SDSC of P2(H5) 

HO H5 

Input J3,R0 S1,R0 

Output R0 J3,R0. 

4. The application of the operator creates two new 
subproblems : Let I be the input state of the routine to 
be compiled, its output state, I, the input state of 
the operator, and 0, its output state. The original 
problem was to transform I into . The new problems 
are: (1) to transform I into I b (i.e., to establish the 
input conditions for application of the operator) , and 
(2) to transform 0, into (i.e., to transform the out- 
put state of the operator into the desired output state 
of the routine to be compiled). Either of these new 
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problems may reduce to the identity transformation, in 
which case that part of the problem is solved. If this 
reduction does not occur, then the same steps, 1, 2, 3, 
are applied [recursion of U140] to the new subproblem. 

In the example at hand, 0, is identical with fl ; 
hence, the remaining subproblem is to transform 1 & into 
L , that is, to compile a routine with SDSC : 

HO 

S2,R0 
J3,S2,R0. 

The repetition of step 1 for this subproblem dis- 
covers a new difference, an addition [X82] to HO. Step 2 
finds the relevant operator, process P1(S) [X107], which 
adds the symbol S to the symbol list in HO. Applying, in 
step 3, the operator P1(J3), the input state of HO: 
S2,R0, is transformed into the output state, J3,S2,R0. 
Hence, the solution to the original problem of compiling 
J3 is obtained by the sequence, P1(J3), P2(H5), or, in 
the usual IPL-V format [X22 of the routine] : 

J3 10 J3 

20 H5 0. 

We see that for the SDSC compiler to operate, it 
must be provided with a set of differences and matching 
tests for noticing differences, a set of already-compiled 
operators, and a table of connections between differences 
and operators. Further, when it has compiled a new routine, 
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the compiler can annex this routine to its set of available 
operators and use it in compiling subsequent routines. 

THE DSCN COMPILER 

Let us now consider an alternative compiling scheme 
for the same routine, J3 . Instead of specifying the 
before and after condition of the computer cells, we de- 
fine the routine [X20 of the routine] in terms of the 
function it performs: REPLACE THE SYMBOL IN H5 BY J3 . 
(This definition (DSCN) resembles more closely than the 
previous one the manner in which routines are defined 
for "conventional" compilers like FORTRAN or LISP. What 
distinguishes the present scheme from these is the use 
of heuristic means -end analysis for working from the 
definition to the compiled routine.) 

The first step in the DSCN Compiler [U134] is to 
search a list of available (compiled) routines to find 
one whose DSCN is as similar as possible to the DSCN of 
the routine to be compiled. In the case at hand, we 
would find the routine P2(C) : REPLACE THE SYMBOL IN C 
BY (HO) . 

At the second step [U130] , means-end analysis is 
performed to transform the compiled routine that has 
been found into the new routine. The transformations are 
performed on the DSCN's. Thus, in the present example, 
there are two differences between P2(C) and J3. The 
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former refers to the cell C, the latter to H5; the former 
refers to the symbol that is contained in cell HO, the 
latter to the symbol J3. 

The compiler notices these differences (in a sequence), 
and searches for an operator relevant to removing the dif- 
ferences. In this case, C can be transformed to H5 by 
a substitution operator. (HO) can be changed to J3 by 
an addition operator (MAKE! (H0)=J3 BY ADDITION). The 
application of these operators to the DSCN of P2(C) would 
compile the desired routine in the following stages: 

P2(C) REPLACE THE SYMBOL IN C BY (HO). 

Apply substit ution 

REPLACE THE SYMBOL IN H5 BY (HO) . 

Apply addition 

REPLACE THE SYMBOL IN H5 BY J3 . 

The resulting program in this case is identical with 
that obtained by the SDSC Compiler. 

A somewhat more complex routine compiled by the DSCN 
Compiler is: 

J13: INSERT (1) AT THE END OF (THE VALUE OF ATTRIBUTE 
(0) OF (2)). 

The list of available IPL routines includes: 

J65: INSERT (0) AT THE END OF (1). 

The differences between J65 and J13 are in their 
arguments. J65 has the argument (0), where J13 has the 
argument (1); J65 has the argument (1), where J13 has 
the argument (THE VALUE OF ATTRIBUTE (0) OF (2)). Since 
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it is not easy in IPL-V to rearrange arguments that are 

located in the pushdown list of the communication cell, 

HO, the compiler facilitates matters by incorporating in 

the compiled routine an algorithm that moves the inputs 

of the routine to be compiled into known working storage 

locations, then puts these inputs back into HO in the 

order in which they are needed for the subprocesses . That 

is, the compiler first transforms J13 into another routine, 

call it K13, which it then compiles. The DSCN of K13 is: 

K13: INSERT 1W1 AT THE END OF THE VALUE OF 

ATTRIBUTE 1W0 OF 1W2. 

The code for J13 may be written as: 

J13 J52 
K13 
J32 . 

Now K13 is to be compiled with the aid of J65. Com- 
paring the corresponding arguments of the two routines , we 
see that this involves finding the value of attribute 1W0 
of 1W2, placing this value in HO, bringing 1W1 into HO, 
and then performing J65. That is to say, K13 will have 
the general form: 

K13 FIND V(1W0,1W2) 
11W0 
J65. 

In the list of available routines, the compiler finds: 

J10: FIND THE VALUE OF ATTRIBUTE (0) OF (1), 

which may be abbreviated, FIND V((0),(1)). Comparing the 

arguments of J10 with V(1W0,1W2), we see that (1) must 
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be set equal to 1W2 and (0) to 1W0. Hence, V(1W0,1W2) 
is equivalent to 

11W2 
11W0 
J10. 

Hence, the complete code for K13 is: 

11W2 
11W0 

J10 
11W1 

J65, 

and the complete code for J13 is simply: 

J13 J52 
11W2 
11W0 

J10 
11W1 

J65 

J32 . 

THE GENERAL COMPILER 

The General Compiler [U135] is an executive routine 
whose task is to compile a routine from information in 
any of the forms already discussed (SDSC and DSCN) or in 
other forms that may be described. It takes as its input 
the name of the routine to be compiled. Associated with 
this name (on its description list) is the information to 
be used in the compilation. More formally: 

A routine is a description list containing values of 
some subset of the following attributes : 

1. IPLN-- IPL name [X25] . The value of this attribute 
is a description list that names a region 
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[X33] and a location [X34] in the region; 
e.g. , J60, R149, J3. 

2. JDEF-- IPL-V definition [X22] . The value of this 

attribute is a list of IPL-V instructions, 
each in the form of a description list 
describing [attributes X40-X46] the cor- 
responding IPL-V word, that defines an IPL-V 
routine with the specified name. For example, 
the routine with IPLN J3 might have the 
following JDEF: 

J3 10J3 

20H5 . 

3. DSCN- - Descriptive name [X20] . The value of this 

attribute is an imperative sentence (en- 
coded as a list structure) that describes 
[with attribute X30,X31] the process defined 
by the JDEF. For example, the routine with 
IPLN J3 has, as already explained, the DSCN: 
REPLACE THE SYMBOL IN H5 BY J3. 

4. SDSC-- State description [X240] . The value of 

this attribute is a list structure that 
describes the state of the IFL computer 
before and after the routine in question 
has been executed. Only changes are men- 
tioned explicitly. Thus the SDSC of J3 is: 
H5: S1,R0. J3,R0. 
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5. FLwD-- Flow diagram [X267] . The value of this 

attribute is a list structure that gives 
the flow diagram corresponding to the JDEF. 
This list structure will be described in 
more detail later. 

6. ASOJ-- Associated J definition [X23] . The value 

of this attribute is the IPL name of a 
routine associated, in a manner to be 
described later, with a given routine. 



A compiled routine is a routine that has a JDEF. 
Now we can state the problem of compiling a routine as 
follows : Given a routine without a JDEF (the present 
object), find the corresponding routine with a JDEF (the 
goal object). "Corresponding" means that the compiled 
routine has the same SDSC or DSCN as the given routine. 
Figure 1 presents the flow diagram of a compiler [U135] 
that uses means-end analysis to accomplish this compilation, 



1. 



2. 



3. 



Test if the 
Routine Has 
JDEF 



+ 



Exit, 
Compiled 



Find Closest 
Definition 
[U136] 



Find and 
Apply Relevant 
Process [U136] 



f 
Exit, 
Failed 



4. 



Test 

Progress 

[U138] 



r^ - 



Fig. l--Flow Diagram for: COMPILE ROUTINE Rl 
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Let us translate this flow diagram into the language 
of means-end analysis. 

1. Test if the routine has JDEF . This test determines 
whether the present object has the characteristics 
of the desired object. If so, the compilation 

is complete. 

2. Find the closest definition [U136] . This process 
corresponds to finding a difference between 

the present and desired objects. However, we 
generalize this notion to mean look for a charac - 
teristic of the present object that will suggest 
a relevant operator. If the object possesses a 
DSCN, then an attempt could be made to compile 
the JDEF from the DSCN; if it possesses a SDSC, 
an attempt could be made to compile the JDEF 
from the SDSC. The attributes that the routine 
could possess are listed in an order that reflects 
the relative ease of compiling a JDEF from them. 
The process then finds the first attribute on 
this list that the routine to be compiled pos- 
sesses. In the present form of the compiler, it 
is assumed that it is easier to compile from a 
DSCN than from a SDSC; hence, the attributes are 
listed in this order. If the routine possesses 
no attribute that can be used as a basis for 
compilation, the compiler reports a failure. 
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3. Find and apply the relevant process [U137] . The 
input to this process is the "closest definition" 
that has just been found. A table of connections 
is searched to find a process that is relevant 

to compiling the JDEF from the closest definition. 
If one is found, it is applied (in a manner to 
be described later) . 

4. Test progress [U138] . If the operator has been 
applied successfully, the routine will now possess 
at least one attribute (a JDEF or another) it 
didn't previously possess. If the progress test 
detects that it now has a definition closer to 
the JDEF than any it had previously, it initiates 
a new compilation cycle; if not, it reports a 
failure and quits . 

The present list of "closest definitions" is very 
short, consisting only of DSCN and SDSC. The present 
table of connections [X198] is also brief: 

1. If the routine possesses a DSCN, apply the oper- 
ator, COMPILE JDEF FROM DSCN. 

2. If the routine possesses only a SDSC, apply the 
operator, COMPILE JDEF FROM SDSC. 
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IV. RELATION OF THE HEURISTIC COMPILER TO GPS 

Since each of the major components of the Heuristic 
Compiler is a system of means-end analysis, each of these 
components can be viewed as a rudimentary GPS. It should 
therefore be feasible, by modifying the top-level programs, 
to bring the Heuristic Compiler into a form that would 
allow its problem- solving processes to be governed by GPS. 
The programs for detecting differences, the tables of 
connections, and the operators would provide definitions 
of task environments for GPS. To accomplish this, GPS 
would have to be arranged so that a subproblem could be 
attached by applying GPS to a new task environment. That 
is, GPS would first be applied to the task environment 
of the General Compiler; applying an operator in this 
environment would consist in applying GPS to the task 
environment of the DSCN's or the SDSC's, as the case may 
be. 
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V. FLOW DIAGRAMS 



Up to this point, we have considered only very simple 
programs , requiring no branches or loops . Each program 
is a list of instructions; each instruction is an IPL word 
represented as a description list with the attributes 
type [X40], name [X41], sign [X42], P [X43] , Q [X44] , 
symbol [X45] , and link [X46] . 

To represent a program with branches and loops, we 
divide the program into segments. Each entry point to a 
loop (an instruction with a local name) begins a new seg- 
ment; each branch instruction (P = 7) ends a segment. Each 
segment has the same attributes as an IPL word—specifically 
name, P, symbol, link, and an additional attribute [X22] , 
whose value is the list of IPL instructions for the segment. 
The name of the first instruction of the segment is assigned 
as the name of the segment; if the segment ends in a 
branch instruction, it is assigned P=7 , and its symbol and 
link are set equal to the symbol and link of the branch 
instruction. If the segment does not end in a branch, it 
is assigned P = and SYMB = 0, and its LINK is set 
equal to the link of its last instruction. Under these 
conventions, the list of segments is a flow diagram of 
the routine with the detail of the routine segments 
appended. 
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To illustrate the format of a flow diagram, we show 
below the code for IPL routine J77, followed by its flow 
diagram. The DSCN of J77 is: TEST IF THERE IS A SYMBOL 
EQUAL TO (0) ON LIST (1) . 

IPL-V CODE FOR J77 



J77 


J50 


90 


90 


J60 
7091 


92 


92 


12H0 

11W0 

J2 

7090 


91 


91 


30H0 
J30 






Segment I ; Put (0) in WO. 

Segment II : Find next 
location on list (1). 

Segment III : Test if 
symbol at location is 
equal to (0) . 



Segment IV : Clean up 
and exit. 



FLOW DIAGRAM FOR J77 



J77 





90 


90 


7 91 


92 


92 


7 90 


91 


91 









From the description of the flow diagram, it is easy 
to provide a program [U139] that will construct a flow 
diagram from an IPL routine, and a program [U133] that 
will compile an IPL routine from the flow diagram and 
appended code segments. In this way the task of compiling 
an IPL routine is reduced to the problem of compiling its 
flow diagram, and compiling the code for each of the 
segments of the flow diagram. 
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The program for compiling such a routine from its 

DSCN has not yet been written, but examination of the 

structure of the routine itself shows what is involved. 

The test involves a quantifier—whether there exists a 

symbol with a certain property on a particular list of 

symbols. In IPL-V, such existence tests are performed by 

means of a loop or a generator; the members of the set in 

question are produced one by one and tested for their 

possession of the property. If a test result is positive, 

the process stops, and the signal, H5, is set plus. If 

the set is exhausted, the signal, H5, is set minus. Thus, 

a standard flow diagram can be used for all routines of 

this kind: 

A Perform required setup. 

B Locate another member of set 

(if none, exit, via D), 
C Perform test on member 

(if it succeeds, exit, via E; 
if it fails, return to B), 
D Exit with signal minus, 
E Exit with signal plus* 

Except for the provision of two distinct exits, this 

is identical with the flow diagram previously shown for 

J77 (Set A - J77, B = 90, C - 92 , D - E - 91) . Now, we 

can compile for each segment of the flow diagram a routine 

that corresponds to the DSCN of that segment. For example, 

FIND ANOTHER MEMBER OF (1) becomes J60 (after appropriate 

recognition of the changed location of (1)); PERFORM TEST 

ON MEMBER becomes : 
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12H0 
11W0 
J2 . 

The only complications lie in moving the inputs for 
the various processes (J60 and J2) in appropriate ways. 
The compiler can do this in a straightforward, if inef- 
ficient, way by using the working storages. Thus, an 
unedited compiled version of J77 might look like this: 



J77 


J51 


90 


90 


11W1 

J60 
20W1 






7091 


92 


92 


12W1 

11W0 

J2 






7090 


93 


91 


J31 





93 


J31 






The same flow diagram would be used in the compilation 
of J62: LOCATE ON (1) AN X SUCH THAT C(X)=(0) . In fact, 
this routine is identical with the one just discussed, 
except that it requires llWl before the exit. It should 
be observed that the indefinite article "an" plays the 
same role in the DSCN of J62 as the quantifier "there is 
a" in J77. The compiler, therefore, would be provided 
with the knowledge that the above flow diagram, using J60 
in the second segment, is the appropriate means for trans- 
lating this quantifier. 

Declarative and interrogative sentences in a DSCN 
correspond to tests in the compiled routine. Thus, the 



-25- 



phrase, "such that C(X)=(0)," leads to the question, 
"Does C(X) equal (0)?" and thence to the test J2(C(X),(0)) 
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PART II 
GENERAL IMPLICATIONS FOR REPRESENTATIONS 

Our examination of flow diagrams has already led us 
to consider how some syntactical devices of English (e.g., 
the definite and indefinite articles) are to be rendered 
in the compiler. In this part, we raise at a more general 
level the question of the syntactical flexibility and range 
of the compiler languages. In Sec. VI, we ask what forms 
of English expressions are handled naturally and simply 
by the DSCN and SDSC languages, respectively. In Sec. VII, 
we ask how we would go about formalizing the notion of 
representation so that a problem- solving compiler could 
be given the task of designing its own representations. 
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VI. LANGUAGE AND REPRESENTATIONS IN THE COMPILER 

We can ask appropriately about any compiler, "What 
range of source statements can it accept?" In Part I, 
we have discussed two kinds of source statements, DSCN's 
and SDSC's. Let us now consider in a little more detail 
the range of English- language expressions that these 
compilers can handle. We take up the language of de- 
scriptive names and the language of state descriptions in 
turn. 

DESCRIPTIVE NAMES 

The DSCN's are particularly interesting because 
they take the form of English sentences --imp era t ives , or, 
as we have just shown, declaratives and interrogatives . 
How restricted is the language of DSCN's in relation to the 
whole class of grammatical English sentences? 

Consider the sentence, "What is the color of that 
apple?" The answer might be, "It's color is red," or 
even, "It is red." In the original sentence, "that 
apple" denotes a particular object; "the color," an 
attribute of that object; and "what," the unknown value 
of the attribute. In the replies, "it" denotes the same 
object as "that apple"; "red," the (now known) value of 
the attribute. Thus, we might represent the question and 
the first answer, respectively, as: 
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? = Color (that apple) 
Red ■ Color (it). 
The second answer can be interpreted as synonymous with 
the first if we stipulate that "red" can be a value only 
of the function "color." 

The process in IPL-V that provides the answer to such 
questions is J10: FIND THE VALUE OF ATTRIBUTE (0) OF (1). 
In terms of our example, this is: "Find the value of 
attribute 'color 1 of that apple." Thus, the process that 
answers the question takes two inputs- -the names of the 
attribute and the object--and produces the value as its 
output. It defines a function, in the mathematical sense 
of the term. In the statement of the process, "attribute" 
is in apposition with "color," the former term specifying 
the genus to which the argument belongs. We could equally 
(though not quite grammatically) have said, "of the object, 
'that apple." 1 Likewise, the phrase, "Find the value of 
the color," is synonymous with, "Find the color," "value" 
being in apposition with the (implicit) "?". That is, in 
English, we abridge, "The value of the attribute, the 
color, of the object, that apple, is red," to, "The 
color of that object is red," or, "That object is red." 
We can do this because "color" is an attribute, "that 
apple" is an object, and "red" is a value- -nothing is 
added to meaning by making these classifications explicit. 
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This example shows how, in general, we can handle 
a wide class of grammatical forms within the framework 
of the DSCN's. Interrogatives are unknowns, like the 
x's of algebra, whose genera may be specified, in part 
or full, to identify them. The couple "the ... of ..." 
signals a determiner - -a phrase that names something by 
giving enough of its properties to tag it uniquely. 
Pronouns (e.g., "it") and pronominal adjectives ("that") 
identify by reference to terms that have occurred in 
previous sentences. "Find" is a general process that re- 
places a determiner by the object determined. Appositive 
phrases and relative clauses provide additional identifi- 
catory information about the object to which they refer. 
Adjectives, adverbs, prepositional phrases (other than 
"of" phrases), and adjectival nouns have the same function-- 
identification or description. Quantifiers ("there is," 
"all," "a," "some," etc.) require special treatment-- 
several of them have already been discussed. 

The present DSCN Compiler was constructed specifically 
to handle verbs (processes), determiners (especially 
those involving "the ... of ..."), and proper names (in 
IPL-V these are always locations). Essentially, what 
the compiler does is replace determiners by the appropriate 
proper names, using the FIND processes for the compilation. 
In the previous section, we indicated how loops and flow 
diagrams could be used to handle quantifiers and con- 
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junctions, including "and," "but," and "if ... then." 
Pronouns could be handled in a manner similar to that 
used for determiners. Appositive and modifying words, 
phrases, and clauses could be used as aids in identifying 
proper names. It appears that with these extensions, the 
DSCN format would encompass most of the forms of gram- 
matical English sentences. Only programming, of course, 
can determine to what extent this claim is correct. 

STATE DESCRIPTIONS 

Just as the DSCN language admits of considerable 
flexibility in representing English sentences, so the 
SDSC language admits of broad flexibility in the repre- 
sentations of information in the computer. This flexi- 
bility is achieved by using description lists as the 
holders of information. Each computer address that is 
referred to in the SDSC is represented by a cell having 
a description list. On the description list are the 
attributes NAME, TYPE, P, Q, SIGN, SYMBOL, LINK--i.e., 
precisely the attributes that name the fields in an IPL 
word (and the name of that word) and that appear on the 
coding sheet. Since the SDSC makes these attributes 
explicit, the program that uses the SDSC's need not be 
provided with this information in any format more special- 
ized than the description list format itself. Moreover, 
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additional attributes and their values can be added, ad 
lib, to the description list. 

By introducing attributes that refer to a particular 
machine representation of IPL, the SDSC language is 
readily extended to admit statements about the relation 
between IPL and its particular representations. For 
example, suppose the fields in the words of a particular 
computer were designated by the attributes DECREMENT, 
ADDRESS, etc. We could then define a machine language 
representation of IPL by setting up appropriate corres- 
pondences between IPL attributes and machine language 
attributes. (For example, we might specify SYMB = 
DECREMENT, LINK = ADDRESS, etc.) We shall indicate in 
the next section how this technique can be used to give 
the Heuristic Compiler the capability of designing ap- 
propriate representations- -hence, how the compiler itself 
might choose an appropriate machine language representation 
of IPL prior to undertaking the task of compiling IPL 
into a machine language program. 

There is also no necessity in SDSC that each de- 
scription list should give the description of the contents 
of a single computer address. Alternatively, it may 
describe a whole list. Suppose, for example, we wish to 
represent the fact that the symbol in cell H5 is J3, and 
that H5 is linked to a pushdown list having unknown con- 
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tents . All of this information can be given in two de- 
scription lists : 

1. NAME SYMB LINK KIND OF OBJECT 

H5 J 3 RO Pushdown cell 

2. NAME KIND OF OBJECT 

RO List 

We have already illustrated how this flexibility 
is used to represent segments of instructions in flow 
diagrams . 
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VII. THE DESIGN OF REPRESENTATIONS 

One distinction between the restricted, relatively 
simple tasks we call "coding," and the broader, more 
difficult tasks we call "programming," is that the latter 
may encompass the selection or design of an appropriate 
problem representation, while the former do not. Our 
discussion of languages now enables us to see what is 
involved in the design or selection of a representation, 
and what we would need to do in order to give the Heuristic 
Compiler the capacity to grapple with such design and 
selection tasks. To illustrate this point, we shall take 
an example of a representation problem within the struc- 
ture of IPL-V itself. 

Let us suppose that we had an operating "basic" 
IFL system, quite like the language defined in the IPL-V 
Manual, except that the description list processes were 
omitted. We now give a programmer the task of intro- 
ducing description lists into the language, using the 
basic system itself to define them, without writing any 
new machine code. 

What do we mean by "introducing description lists"? 
We mean that we wish to be able to associate with the 
name of an object (which in IPL is always an address) a 
description of that object. The description consists of 
a set of pairs: one member of each pair is an attribute; 
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the other member of the pair is the value of that attri- 
bute for the object to which the description belongs. 
Moreover, we wish to be able to store and retrieve de- 
scriptive information about objects. That is, we wish to 
be able to add new pairs to descriptions, and when we are 
given the name of an object and an attribute, we wish to 
be able to find the value of that attribute for that 
object. Stated formally: 

With every object A. , we associate a set of pairs, 
(B.,C). The number of pairs is to be arbitrary and 
variable, and we want a process that will answer questions 

of the form: ? - B. (A i ) . 

How could a programmer solve this problem? By the 

basic conventions of IPL-V, "object" already means 

"address." Thus, he must find some way of associating 

a _set with each address. Again, in IPL, the standard 

way to represent a set is by a list . The question then 

becomes, "What list can we associate with an address?" The 

basic relations that are represented in IPL-V are CONTENT 

OF and NEXT. The CONTENT OF a cell is the SYMB of that 

cell, and the NEXT of the cell is its LINK. Moreover, 

basic processes exist for FIND CONTENTS (P = 1, Q - 1) 

and FIND NEXT (J60) . Thus, the set we associate with an 

address can be taken to be the list whose name is the 

SYMB (or, alternatively, the LINK) at that address. Let 
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us call this list (pursuing the first alternative) the 
description list associated with the address. 

We must next define a format for description lists 
that will represent the pairing of attributes and values. 
One method would be to associate a pair of words with 
each element of the description list, again using the 
relations CONTENT and NEXT. Thus, if S. is the content 
of the j number of the description list, we could de- 
fine B. - CONTENT OF S. , and C. . = CONTENT OF NEXT OF S. . 
(This is substantially the representation that was used 
in an earlier version of IPL. An even simpler represen- 
tation would make C. . = LINK OF S. .) Now, to add a pair, 

•J J 

B. , C. . , to the description list of A., we add a cell to 
the description list, assign it a SYMB (S.)> assign B. 
as the SYMB of S. , and assign C,. as the SYMB of the LINK 
of S. . Similarly, if we are given A. and B. , to find C. . , 
we first find the description list, CONTENT OF A. , and we 
go down this list comparing B. with the CONTENT of the 
CONTENT of each location on the list. When we obtain a 
match, we find the CONTENT of the cell next to the matched 
cell, and this is the desired value. These processes 
follow from the representation. 

An alternative representation is obtained by dividing 
the members of the description list into two subsets --its 
ODDS and its EVENS. We then take the ODDS as the attributes; 
the value of an attribute is simply the EVEN that follows 
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it. These definitions, again, make use only of the 
relations CONTENTS and NEXT. Thus, an ODD of a list is 
the FIRST of the list or the NEXT of the NEXT of an ODD. 

This definition allows us to construct a loop that 
will find, in sequence, all the attributes on the list. 
Given the location of an attribute, a FIND CONTENTS OF 
NEXT finds its value. This representation is, of course 
the one actually adopted in IFL-V. 

It will be instructive to see what the program for 
J10; FIND THE VALUE OF ATTRIBUTE (0) OF (1), looks like 
in each of these representations. We write the two pro- 
grams side by side: 



J10 


J51 
12W1 




J10 


J51 
12W1 




92 


J60 
7090 
6 0W1 
52H0 
12H0 
11W0 

J2 
7091 

J60 




92 


J60 
7090 
60W1 
52H0 
11W0 

J2 
7091 
11W1 

J60 






52H0 


J31 




52H0 


J31 


91 


3 OHO 




91 


11W1 






11W1 


92 




J60 


92 


90 


3 OHO 


J31 


90 


3 OHO 


J31 



Find description list. 

Find next attribute. 

Test if it is equal to (0). 

If so, find value. 

list. 
Proceed down description/ 
Exit, attribute not 
found. 

We see from this example that designing a suitable 
representation amounts to finding an isomorphism. A 
"description" was defined in terms of certain elements 
(objects, attributes, values), relations between elements 
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(e.g., the attributes of an object), and processes (e.g., 
FIND THE VALUE OF (0) OF (1)). The programmer had to 
find a set of elements, relations, and processes defined 
in IFL-V that were isomorphic with the required elements, 
relations, and processes. I have not worked out how such 
a search could be automated, but the main requirements 
are clear. In particular, to enable the Heuristic Compiler 
to perform this search, it would have to be provided with 
lists of the available elements, relations, and processes, 
or it would have to be able to recognize such things 
when they were described in the DSCN or SDSC languages . 
For example, it would have to recognize that every deter- 
miner (e.g., "the ... of ...") defines a relation. 

As a second example of what is involved in designing 
a representation, let us consider the representation of 
IPL-V words in SDSC. Since each word consists of a number 
of symbols belonging to different fields, we can again use 
the description list format, in which we equate "field" 
with "attribute" and "symbol in field" with "value of 
attribute." But the symbols in the NAME, SYMB, and LINK 
fields themselves contain encoded information, for they are 
in the form ANNNN, where A is an alphameric symbol, and 
NNNN is a number. Hence, we represent each of these 
symbols by an object with a description list containing the 
attributes REGION and LOCATION. The value of REGION is 
the alphameric symbol A; the value of LOCATION, the 
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number NNNN. Therefore, the information that a "local 
symbol" is one with A = 9 can be represented. Again, the 
lesson here is that we must create an isomorphism between 
the elements of the representation, their relations, and 
the structure to be represented. 

Suppose, as a third example, that we set ourselves 
the task of writing a program to sort a bridge hand. To 
accomplish this task the meanings of "sort" and "bridge 
hand" must be known. A bridge hand is a set of (13) 
elements, each characterized by a primary characteristic, 
suit (4 possible values), and a secondary characteristic, 
denomination (13 ordered values) . Sorting means ordering 
a set of elements by one or more characteristics, taking 
account of the ordering of values where this is defined. 

In this case we find a straightforward isomorphism: 
Each element in the bridge hand is to be represented by 
an object having a description list with attributes SUIT 
and DENOMINATION. A sorted bridge hand is to be represented 
by a list of such elements, with the ordering of the list 
to correspond with the ordering of the sort. It now 
becomes a straightforward (if difficult) compiling job 
to write a SORT routine that will produce a list with 
these properties. Moreover, if it is done correctly, it 
should be possible to write the routine in the generalized 
form: SORT (0) IN FORMAT (1), where (1) enumerates the 
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attributes, their ordering, and the orderings of the 
values that define the sorted object, 

We shall explore this particular scheme in more 
detail in Sec. VIII of Part III. Perhaps enough has 
been said here to demonstrate that selecting or designing 
a representation is a problem-solving task that can be 
attacked with the same general kinds of heuristic tech- 
niques as other problem- solving tasks. 
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PART III 
EXPERIMENTS WITH REPRESENTATIONS 

In Part III, we propose some extensions of the 
Heuristic Compiler, most of which are motivated by lin- 
guistic considerations. In particular, we explore some 
methods for enabling the compiler to handle input state- 
ments in forms that are close to natural language. 

There are a number of important respects in which 
natural languages differ from the usual programming lan- 
guages. We shall be especially concerned with three of 
these differences : 

1. In natural languages, the word is the most im- 
portant unit of meaning. (For the moment, we do not 

need to distinguish among "word," "morpheme," and "idiom.") 
In most computer languages, the sentence (usually an imperative 
sentence, called an "instruction") is the basic unit of 
meaning. Thus, if a person understands, separately, the 
verb "sort," and the noun phrase "bridge hand," he can 
probably obey the instruction, "Sort the bridge hand." 
In most computer languages, a compiler would not be able 
to assemble, "Sort a bridge hand," from "sort" and "bridge 
hand," but would have to be provided with a number of 
specialized sort routines. 

2. In natural languages, most communication makes 
use of sentences in the indicative or declarative mode. 
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In computer languages, most sentences are in the imperative 
mode. Computer languages are primarily languages of 
command, and not languages of information, description, 
or advice. 

3. In natural languages, many alternative sentences 
can be phrased that "mean" about the same thing. The 
recipient of a natural -language communication is able to 
decode the communication without too much concern for 
details of format. In computer languages, there are various 
harassing constraints on format. Failure to observe 
these constraints usually causes an error condition. 

These differences are, of course, differences of 
degree and not of kind. Moreover, research on computer 
languages over the past decade has already made sub- 
stantial progress toward decreasing or erasing them. Basic 
processes have become more general and parameterized; 
various forms of declarative statements have been intro- 
duced; compilers have been designed to accept relatively 
informal input statements. The gap, however, between 
natural language and computer languages is still large, 
and annoying to those who are engaged in man-machine 
communication . 

We are here concerned with extensions of the 
Heuristic Compiler directed towards reducing these 
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differences.* Section VIII indicates how generalized 
processes (verbs) can be introduced into the DSCN 
Compiler. Section IX describes subroutines for storing 
and retrieving descriptive information in declarative 
sentences. Section X describes an approach toward 
natural -language flexibility in input statements for the 
SDSC Compiler, making use of the descriptive information 
provided by the techniques of Sec. IX. 



The thinking reported here, particularly in Sections 
IX and X, was greatly stimulated by the work of Robert 
K. Lindsay, "The Reading Machine Problem" (Unpublished 
Ph.D. Thesis, Carnegie Institute of Technology, 1960), 
which has been revised as Toward the Development of a 
Machine Which Comprehends , University of Texas, Austin, 
May 1961. I owe a great deal also to stimulating dis- 
cussions with Hugh Kelly and Allen Newell of The RAND 
Corporation and Carnegie Tech, respectively. 
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VIII. GENERALIZED PROCESSES 

We shall consider two classes of processes: one 
designated by the verb "find," the other by the verb 
"sort." 

"FIND" PROCESSES 

The possible interpretations of FIND are numerous to 
the point of being meaningless. Any routine that takes 
some symbolic structures as inputs and produces one or 
more other structures as outputs may be called a process 
for "finding" the latter. Thus: FIND SINE A, FIND THE STATE 
DESCRIPTION OF ROUTINE K, FIND THE PROOF OF THEOREM T. 
From this point of view, a program like the General 
Problem- Solver is simply a fairly general FIND routine. 

Hence, any routine flexible enough to interpret 
correctly the verb "find" wherever it occurs in normal 
English prose, would have to make considerable use of 
context. In the present section we shall aim at a lesser 
degree of flexibility. Consider the two classes of 
processes typified by: 

FIND THE state description OF routine K, and 

FIND A ON 

The first example designates an object associated 
in a particular way with a specific object, K. In IPL-V 
there is provided a special format, the description list, 
for holding such information in memory, and a set of 
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processes, JlO to J16, for entering and retrieving the 
information. Section IX examines definite descriptions 
of this special kind at length. In the present section, 
then, we shall limit ourselves to the verb "find" as it 
occurs in instructions like, FIND A ... ON ..., and FIND 
THE ... ON ... . Even this scheme covers a considerable 
variety of processes : 

FIND A symbol, S10, ON list L. 

FIND AN object whose type is A4 ON list structure L. 

FIND THE third symbol ON list L. 

FIND THE largest integer data term ON the lists 
of list L. " 

In the first two examples, the indefinite article 
indicates that the object sought is not necessarily unique; 
in the last two examples it is. In the first two examples 
the properties that define the object sought are absolute -- 
their presence or absence can be ascertained without 
reference to other objects. In the last two examples, the 
properties are relative ; and indeed, in the fourth example, 
the entire set of objects must be examined before the one 
sought can be identified. In the first example, the 
object sought is designated by proper name (and the infor- 
mation is added that it is a "symbol"). This example 
can be approximated to the others by rephrasing it: FIND 
A token equal to S10 ON list L. 
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With these preliminaries out of the way, we shall 
describe in detail a rather general FIND process. The 
object sought will be specified by some sublist of the 
symbols on the pushdown list of the communication cell, 
HO. The specification of the place to be searched will 
be given by other symbols on that pushdown list. Hence, 
we can symbolize the desired process: 

FINDAF 1 [(0), (l),...,(k)] IN F 2 [(k+1), (k+2) , . . . , (n) ] 
where (0), (1), etc., designate, as usual, the symbols 
on the pushdown list of HO. 

We suppose that the compiler is provided with a 
lexicon that contains, among others, the words "FIND," 
"F-, [ ]," and "F 2 [ ] ." The lexical entry for each 
of these is a description list containing, for "FIND" 
and "F lt " the attribute IPL ROUTINE, and for M F 2 ," the 
attribute TYPE OF OBJECT. 

The IPL ROUTINE associated with FIND in the lexicon 

will contain certain variables, to be replaced by constants 

derived from an examination of F, and F 2 . We will first 

present the routine, as it would appear in the lexicon, 

and then explain the meaning of certain of the symbols 

in it. 

FIND J5n 

HW(n-k) 
1090 

GEN (F, ,F 2 ) 
J5 J3n 

90 A OHO 
HWk 

TEST(F-, ) 
J5 X 
7090 J8 
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As previously indicated, k is the number of arguments 
in F 1 , ( n-k ) the number of arguments in F 2 , and n the 
number of arguments in the two functions taken together. 
Thus J5n preserves WO to Wn and moves all the arguments 
of F x and F 2 into the W's; J3n restores WO to Wn. The 
instruction llW(n-k) brings into HO the arguments of F 2 , 
while HWk brings in the arguments of F^ The numbers k 
and n-k are to be determined, of course, by examining F-^ 
and F 2 . The variable, GEN(F 1 ,F 2 ), is to be replaced with 
a generator obtained from the lexical entry for F 2 , while 
TEST(F, ) is to be replaced with a test associated with 
the lexical entry for F 1 - All the other symbols have their 
usual IFL-V meanings. 

We can now compile FIND A F-^ IN F 2 as follows: 

1. Get IFL ROUTINE of FIND. 

2. Supply values for k, n, and n-k where required. 

3. Make list of subroutines required (GEN(F, ,F 2 ) , 

TESTCF^). 

4. Get the IPL ROUTINE of TEST, supply it with its 

arguments, and insert it in the IPL-V 
code for FIND. 

5. Get TYPE OF OBJECT of F 2 , and get the associated 

GEN for that type in the dictionary of 
generators; insert it in the IFL-V code 
for FIND. 

A word may be added to this account to indicate how 

relative properties are handled in FIND THE THIRD . . . , 

or FIND THE LARGEST. In these cases, the test needs to 

be based on a recursive process — in the case of FIND THE 

THIRD ..., a counting process; in the case of FIND THE 
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LARGEST . .., a process that resets LARGEST SO FAR equal 
to the larger of LARGEST SO FAR and the current integer. 
The test--the function F, --would, in these cases, make 
provision for storing in the W's the intermediate products 
of calculation. 

"SORT" PROCESSES 

As our second essay toward generalized processes, we 
take the verb "sort." Suppose that the objects we wish 
to sort are description lists. It is easy to construct a 
general routine, SORT (0) ON (1), where (0) is the list 
of objects to be sorted and (1) is a specification of the 
attributes, their ordering, and the order ings of attribute 
values on which the sorting is to be based. Thus, if (0) 
were a list of description lists representing the cards 
in a bridge hand, (1) would specify that the attributes 
are suit and denomination (in that order) , that the suit 
values are S,H,D,C, in that order, and the denomination 
values A,K,Q,J,10,9, etc., in that order. A further step 
toward generalization would allow the sort routine to be 
compiled from a definition of the collection of objects 
to be sorted. Let us see how this can be done when the 
object to be sorted is a bridge hand. First, we store in 
memory description lists providing information about the 
terms LIST, DESCRIPTION LIST, and ATTRIBUTE: 
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LIST 

TYPE: Class of objects 
ATTRIBUTES: Type of members 

DESCRIPTION LIST 

TYPE: Class of objects 
ATTRIBUTES: Attributes 

ATTRIBUTE 

TYPE: Class of symbols 
ATTRIBUTE S : Value s . 

That is to say, a list is a class of objects; the 
description list for any class of objects of type LIST 
will have the attribute CLASS OF MEMBERS. A description 
list is also a class of objects; the description list for 
any class of objects of type DESCRIPTION LIST will have 
the attribute ATTRIBUTES. An attribute is a class of 
symbols; the description list for any class of objects 
of type ATTRIBUTE will have the attributive VALUES. 

Next, we store in memory description lists providing 

information about the terms BRIDGE HAND, CARD, SUIT, and 

DENOMINATION. 

BRIDGE HAND 

TYPE: List 
MEMBERS : Cards 



CARD 



SUIT 



TYPE: Description List 
ATTRIBUTES: Suit, denomination 



TYPE: Attribute 

VALUES: Spade, hearts, diamonds, clubs 



DENOMINATION 

TYPE: Attribute 

VALUES: A, K,Q, J, 10, 9, 8, 7, 6, 5, 4, 3, 2 
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Now we can compile SORT THE BRIDGE HAND (0) , as 
follows: From the information just stored, we find that 
BRIDGE HAND has the type LIST. From LIST, we find that 
BRIDGE HAND will have the attribute TYPE OF MEMBERS. 
Finding the value of this attribute, we determine that 
the members of bridge hands are cards . CARD is a 
description list, which has the attribute ATTRIBUTES. 
The attributes of cards are suit and denomination. We 
would therefore compile the sort routine to sort on suit 
and denomination, in that order of priority. Examining 
the values of these two terms, in turn, we find the order 
in which these values are to be arranged in sorting. 

If it were known to the program that a bridge hand 
is a list of description lists, then the sorting routine 
could obtain the information about attributes and values 
by direct examination of one or more examples of a 
sorted bridge hand, and without being given the informa- 
tion about CARD, SUIT, or DENOMINATION explicitly. If 
the examples were not too special (e.g., a hand of 
thirteen spades), the program could determine what 
attributes a card possessed, which of these was relevant 
to the sorting, the hierarchy of attributes, and the 
ordering, if any, of the values of each. This information 
could then be used to compile the specific sorting routine 
required. 
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Thus, we see that the key to providing a generalized 
routine for a verb like SORT lies in providing syntactically 
or semantically the information needed to supply the 
routine with the parameter values it requires. This can 
be accomplished (syntactically) through a scheme of 
declarative sentences that describe the objects under 
consideration; or (semantically) by providing examples 
that can be analyzed. Moreover, the description itself 
can be generated inductively from examples. 

The description that would allow compilation of the 
"sort" routine could also be used to compile TEST IF X IS 
A BRIDGE HAND. Thus, storing descriptions of classes of 
objects is an important means for factoring sentence 
meanings of nouns and verbs, respectively. It provides 
a powerful basis for introducing general processes. 

RECURSIVE FUNCTIONAL LANGUAGES 

Consider an instruction language consisting of a 
set of functions each admitting as arguments the values 
of functions of the set. Each of the functions can be 
regarded as a FIND ins true t ion- - i. e. , FIND THE VALUE OF 
F FOR THE GIVEN ARGUMENT VALUES. It may be executed 
recursively by finding, first, the values of each of its 
arguments, then using these to compute the value of the 
function. Hence, the interpreter of such a language may 
itself be regarded as a generalized FIND instruction. 
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Next, consider an instruction like SORT OBJECT A, 
in a recursive functional language. The definition of 
SORT, if it is a generalized routine like those described 
in the previous section, may read something like ARRANGE 
ACCORDING TO THE ATTRIBUTE VALUES OF. The definition has 
different arguments from SORT itself-- it refers to the 
attribute values of A instead of the object A. The 
interpreter would need to be general enough to replace 
SORT A by ARRANGE A BY THE ATTRIBUTE VALUES OF A; then 
execute FIND THE ATTRIBUTE VALUES OF A, and insert the 
value of this function as the second argument of the 
ARRANGE function. We have already indicated how the 
FIND might be accomplished. 

With a little further generalization, the scheme 
could handle apposition- -e.g. , SORT THE BRIDGE HAND, A. 
The phrase in apposition would provide information about 
the type of the object designated, and as we have seen, 
this information could be used to find the other argument 
of the ARRANGE routine. Further light will be cast on 
apposition in the next section, where we shall discuss 
modifiers that identify an argument, and their relation 
to modifiers that describe the object. 
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IX. DEFINITE DESCRIPTIONS 

The meaning of much descriptive and expository prose 
can be captured in a fairly simple language- -a sub- 
language of English—that uses only the verb "is" and 
noun phrases with definite or indefinite articles in 
subjects and predicates. Consider the following example, 
which, while it does not fit this restricted form exactly, 
is not far from it : 

The state description of a routine consists 
of a list of affected cells. For each affected 
cell on the list, the state description specifies 
its input state and its output state. 

SYNTACTIC CHARACTERIZATION 

We might proceed to formalize this description in 
either of several ways. I shall call the first of these 
syntactical , since it makes statements about the terms 
"state description," "affected cells," "input state," 
and "output state." These statements can then be stored 
in association with the relevant terms in a lexicon. 

The type of "state description" is "description 

list"; 
The attribute of "state description" is "list 

of sf fcctcd cg!_1_s * 
The type of "list of affected cells" is "list"; 
The type of "affected cell" is "description list"; 
The attributes of "affected cell" are "input state" 

and "output state," 

We have already seen this kind of description in our 
discussion of generalized SORT routines in the previous 
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section. Readers who are familiar with the notation 
known as Backus normal form will observe that a syn- 
tactical description of this kind could without much 
difficulty be translated into that form--or a slight 
extension thereof. Our interest, however, is in staying 
close to natural English. 

SEMANTIC CHARACTERIZATION 

An alternative, semantic , formalization characterizes 
a given type of object (STATE DESCRIPTION in this 
instance) by describing an example: 

XI is a state description of a routine if 
there are an XO, X2 , X3, X4 , 
and X5, such that: 

XO is a routine; 

XI is the state description of XO; 

X2 is the list of affected cells of XI; 

X3 is a member of X2; 

X4 is the input state of X3; 

X5 is the output state of X3. 

Properly interpreted, the example implies the 
syntactic description we gave previously. Consider, for 
instance, "X3 is a member of X2." With the convention 
that only lists have members, this statement implies that 
X2 is a list. From the previous statement, "X2 is the 
list of affected cells of XI," we observe that this list 
is the value of the attribute, LIST OF AFFECTED CELLS, 
of XI. 

We can store the example in memory by storing a 
description list, XO, with attribute STATE DESCRIPTION 
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having value XI. XI, in turn, is a description list, 
with attribute LIST OF AFFECTED CELLS having the value 
X2. X2 is a list whose sole member is X3. X3 is a 
description list with attribute INPUT STATE having value 
X4, and attribute OUTPUT STATE having value X5. 

ANNEXING DESCRIPTIVE INFORMATION TO AN INFORMATION STORE 

Let us use symbols from the X region- -e. g. , X114, 
X33 — to designate nouns. These nouns will be either 
proper names (of objects to be represented by lists or 
list structures) or attributes. Consider now the sentence: 
"X114 is the X33 of the X25 of X105." 
In this sentence, which is grammatical if inelegant 
English, H X114" and "X105" are proper names, while "X33" 
and "X25" name attributes. The objects referred to in 
this sentence are X114 (or synonymously, the X33 of the 
X25 of X105), the X25 or X105, and X105. The problem 
of annexing the information provided by this sentence to 
an existing memory store depends on what is already in 
the store. 

Suppose, as a first possibility, that no information 
has been stored previously about the objects mentioned in 
this sentence. We store the new information by creating 
a name, call it X200, and assigning it as the value of 
attribute X25 of XI 05. Then we assign X114 as the value 
of attribute X33 of the newly named object, X200. 
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Suppose, however, that we had previously stored in 
memory the information that an object named X130 was the 
value of attribute X25 of X105. Then, to store the new 
information, we would first have to find X130, and then 
assign X114 as the value of attribute X33 of X130. 

In the first case, we annexed the new information 
by two ASSIGN processes --in IPL-V, two applications of 
Jll. In the second case, we annexed the new information 
by a FIND process (J10 in IPL-V) followed by an ASSIGN. 
We can write a general routine to accomplish this. In 
processing a sentence like the one we are using as 
example, we start at the extreme right and search in 
memory for the object named. If we find it, we proceed 
to the left, find the first attribute, and find the value 
of this attribute of the object. If the value exists, it 
becomes a new object on which we can repeat the process, 
moving to the next attribute to the left. 

When we fail to find an object meeting the descrip- 
tion (when J10 fails), we enter a second phase. We now 
proceed from the left-hand side of the sentence, creating 
names for new objects as these are needed, and annexing 
their descriptions to them (by Jll) , until we reach an 
object that is already mentioned in memory. 

Thus, depending on what is already stored in memory, 
the same piece of information in the input sentence can 
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serve either as a descriptive phrase, providing new 

information to be annexed to the memory structure, or as 

an identifying phrase, to be used in locating the place 

in memory where the new information is to be annexed. 

In this scheme ambiguity is entirely possible. It 

can enter because the scheme allows indefinite, as well 

as definite description. Again, an example will make the 

point clear. We consider the following sequence of four 

input sentences : 

X114 is the X33 of the X25 of X105. 

X115 and X116 are the X99 of the X34 of the 

X25 of XI 05. 
X125 is the X41 of a member of the X71 of the 

X24 of X105. 
X117 is the X75 of the member whose X41 is 

X125 of the X71 of the X24 of X105. 

Suppose we begin with no information about X105 in 
memory. Then, as we have seen, the first sentence is 
stored by two executions of Jll. The first creates a new 
object, say X200, and assigns X114 as its X33; the second 
assigns X200 as the X25 of X105. 

The second sentence is stored by two executions of 
Jll and one of J10. Working from the right, by J10, X200 
is found to be already in memory as the X25 of X105. But 
there is no value for attribute X34 of X200. Hence, a 
list, say X201 , is created whose members are X115 and 
X116, and X201 is assigned as the value of X99 of another 
new object, say X202. Finally, X202 is assigned as the 
X34 of X200. 
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Storing the third sentence brings about the creation 
of X203, whose X41 is X125; of a list X204 , of which X203 
is member; and of an object, X205, whose X71 is X204 , and 
which is, in turn, the X24 of X105. 

The fourth sentence introduces a new complication. 

It refers to "the member of the X71 of the X24 of X105 

whose X41 is X125." A series of JlO's will find the X71 

of the X24 of Xl05--that is, X204. The sentence now calls 

for locating that member of X204 whose X41 is X125. From 

the previous paragraph, we see that the object in question 

is none other than X203. Thus X117 would be assigned as 

the X75 of X203. 

Now let us return to the question of ambiguity. 

Suppose that the fourth sentence read: 

X117 is the X75 of the member whose X76 is 

X130 of the X71 of the X24 of XI 05. 

Now, when we examine X204 , we find, as before, that 
it has a member, X203. But we have no information to tell 
us whether or not X203 is "the member of X204 whose X76 
is X130." Hence, we do not know whether to assign X117 
as the X75 of X203 or to create a new member of the list 
X204--say X205, and assign X117 as the X75 of X205. 

The ambiguity is not a consequence of the particular 
annexing scheme we have used, but resides more deeply in 
the nature of things. Let r and s be relations; A, B, C, 
and X, objects. Suppose we know that ArB and that there 
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exists a Y such that CsY and YrB. Then we can neither 
affirm nor deny that Y is identical with A. (The same 
difficulty arises in R. Lindsay's program for annexing 
genealogical information to a family tree.* If we know 
only that Isaac is a son of Abraham, and Jacob is a son 
of a son of Abraham, then we do not know whether or not 
Jacob is a son of Isaac.) Our only recourse is to arrange 
the annexing routine so that, when it detects such an 
ambiguity, it outputs an appropriate question. 

A program for an annexing routine is given in 
detail in Appendix B. It will not deal with the ambiguity 
problem just discussed, but is in all other respects 
capable of annexing to memory the contents of sets of 
sentences of the kinds we have been considering. 



*0p. cit ., p. 43. 
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X. COMPILATION OF ROUTINES FROM PARTIAL DESCRIPTIONS 

One part of the flexibility of natural language 
depends on the problem-solving capacity of the listener. 
Information already in his memory allows him to supply 
details that are omitted from, or only implicit in, the 
communication. Suppose we wish to give a (human) pro- 
grammer the task of coding a routine in IPL-V for J3. 
We might tell him: 

"Write a routine, J3. that changes the 
contents of cell H5 from LS1,R0] to LJ3,R0]." 

The programmer, familiar with IPL-V, knows that H5 
is a so-called "pushdown cell," and that what is wanted 
is to replace the contents of the SYMB field of that cell, 
whatever they may be, by the symbol "J3." 

What instruction would we have to give to the SDSC 

Compiler to induce it to perform the same task? The 

instructions would read: 

"Compile the IPL-V definition of the 
following routine: The NAME of the routine is 
J3. The LIST OF AFFECTED CELLS of its STATE 
DESCRIPTION has a member, whose NAME is H5 , 
whose INPUT STATE is the list, Si, R0, and 
whose OUTPUT STATE is the list, J3 , R0." 

Given some such statement, the annexing routine 

described in the previous section could construct an 

appropriate description list as input to the SDSC Compiler. 

In Part I, we showed how the SDSC Compiler could then 

write the desired routine from its state description. 
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Now the instructions to the compiler have required 
about three times as many words as the instructions to 
the human programmer. The reason is easy to see. The 
essential information to be provided is that the cell to 
be changed is H5, and that the change is to replace an 
unknown symbol by the symbol J3. The compiler cannot 
receive this information without explicit mention that 
J3 is the first symbol in the list of the output state of 
affected cell H5 of the list of affected cells of the 
state description of the routine named J3. The human 
programmer is capable of supplying this additional 
information, because he knows what the structure of a 
state description is like. 

The last observation suggests that we might give 
the compiler the same capability by providing it prior 
information about the structure of a state description, 
and allowing it to fill in the implicit detail. Let us 
employ the language of Sec . IX to see how this might be 
done. 

The complete description list, necessary to the 

Heuristic Compiler, is equivalent to the following set of 

sentences : 

Let X100 be a routine whose NAME is J3. 
Let X101 be the STATE DESCRIPTION OF X100. 
Let X102 be a member, whose NAME is H5, of 

the LIST OF AFFECTED CELLS OF X101. 
Let SI, RO be the INPUT STATE OF X102. 
Let J3, RO be the OUTPUT STATE OF X102. 
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In parallel fashion, we can store in memory a 

"template" for the description of a routine. We will use 

symbols from region "Y" to denote variables. 

Yl is the NAME of Y2. 

Y3 is the STATE OF DESCRIPTION of Y2. 

Y4 is the LIST OF AFFECTED CELLS OF Y3. 

Y5 is a typical member of Y4. 

Y6 is the NAME of Y5. 

Y7 is the INPUT STATE OF Y5. 

Y8 is the OUTPUT STATE OF Y5. 

X7 and Y8 are lists. 

Now to fit the specific example to the template, we 

identify J3 with Yl , X100 with Y2 , X101 with Y3 , X102 

with Y5, and so on. Suppose, however, the example were 

incomplete, as follows: 

X100 is a routine whose NAME is J3. 

N101 is a cell whose NAME is H5. 

SI, RO is the Ml of X101. 

J3, RO is the M2 of X101. 

Here "Ml" and "M2" designate attributes whose 
meanings are not given in the lexicon. It should not be 
too difficult to devise a process for matching this 
description with the template. The matching process 
would discover that X101 has to be identified with Y5, 
and X100 with Yl. New objects could then be created to 
correspond with Y3 and Y4 , and the appropriate descrip- 
tion list stored in memory. The SDSC Compiler, taking 
this description list as its input, could now compile the 
code for J3. 

Our basic proposal, then, for compiling routines 
from partial descriptions rests on two devices : (1) the 
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use of an annexing routine like that described in Sec. IX 
as a means for constructing description lists from 
expository sentences; (2) the use of templates to provide 
information that is not given explicitly in the input 
sentences. The routine for accomplishing the second task 
has not yet been written. 
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Appendix A 
PROGRAM LISTING OF THE HEURISTIC COMPILER 

This listing includes a rather simple form of the 
General Compiler [U135] , DSCN and SDSC Compilers [U134 
and U140, respectively], routines for assembling flow 
diagrams [U133] , and routines for printing JDEF [U125] , 
DSCN [U126], SDSC [U127] , and all three of the above 
[U128]. These routines are called in by a general 
executive [Tl]. 

List structures in regions E, T, and U, and X5 and X7 
are routines. The remaining list structures in region X 
are data. The version of Tl that is listed will print 
X102, then compile and print X105 and X100, compile X182 
from its flow chart, printing the result, and reconstruct 
the flow chart of X102 from its code. 

The program is in IPL-V (Information Processing 
Language-V) and is machine independent. 
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E4. PRINT LIST (0) OF DATA TERMS 
WITHOUT NAMES. ENTER LIST NAME 



E40. MARK ROUTINES ON (0) TO TRACE 



E41. MARK ROUTINES ON (0) 
NOT TO TRACE 



PRINT, CLEAR 
SPACE BAR ONCE 
SPACE BAR TWICE 
PERIOD, SPACE TWICE 



COMMA, SPACE ONCE 



E55. PRINT LIST STRUCTURE, 
SAVING FOR NEXT PROCESS 



2 


AO 




0200 


2 


EO 




0200 


2 


LO 




0200 


2 


NO 




0200 


2 


TO 




0200 


2 


UO 




0200 


2 


XO 




0200 


5 










E4 


40H0 
J156 








E54 


91 




91 


J60 
7092 
12H0 








J157 


91 




92 


E53 


JS 




E8 


1090 








J101 


E50 




90 


70 
12H0 

J156 
7092 
30H0 

E54 


91 






7093 







91 


E50 








J156 


E53 




92 


E50 
10N10 

J161 
52H0 








J156 


E54 




93 


E50 
10N10 








J161 


J4 




E40 


1090 








J100 


C 




90 


J147 


J4 




E41 


1090 








J100 







90 


J149 


J4 




E50 


J155 


J154 




E51 


10N1 


J161 




E52 


10N2 


J161 




E53 


1091 








J157 


£52 




91 


+ 21. 






E54 


1091 








J157 


E51 




91 


+21, 






E55 


E50 








40H0 


E6 




Tl 


3J0 
10A99 
J154 





E4 


000 


E4 


010 


E4 


020 


E4 


030 


E4 


040 


E4 


050 


E4 


060 


E4 


070 


E8 


000 


E8 


010 


E8 


020 


E8 


030 


E8 


040 


E8 


050 


E8 


060 


E8 


070 


E8 


080 


E8 


090 


E8 


100 


E8 


110 


E8 


120 


E8 


130 


E8 


140 


E8 


150 


E6 


160 


E8 


170 


E8 


180 


E40 


000 


E40 


010 


E40 


020 


E41 


000 


E41 


010 


E41 


020 


E50 


000 


E51 


000 


E52 


000 


E53 


000 


E53 


010 


E53 


020 


E54 


000 


E54 


010 


E54 


020 


E55 


000 


E55 


010 


Tl 


000 


Tl 


010 


Tl 


020 
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13A0 
10930 

J100 

10X102 Tl 

U128 Tl 

10X105 Tl 030 

40H0 Tl 040 

U135 Tl 050 

30H0 Tl 060 

U128 Tl 070 

10X100 Tl 080 

40H0 Tl 090 

U135 Tl 100 

30H0 Tl 110 

U128 Tl 120 

10X182 Tl 130 

10X41 Tl 140 

J10 Tl 150 

10X180 Tl 160 

10X181 Tl 170 

U133 Tl 180 

J50 Tl 190 

J90 Tl 200 

40H0 Tl 210 

11W0 Tl 220 

10X22 Tl 230 

Jll Tl 240 

40H0 Tl 250 

U128 Tl 260 

40H0 Tl 270 

U139 Tl 260 

40H0 Tl 290 

10X26 Tl 300 

J10 Tl 310 

40H0 Tl 320 

U125 Tl 330 
930 J147 

T99 J166 J165 T99 000 

CONSTRUCT IPLV WORD (3), WITH UlOO J52 UlOO OOQ 

J90 UlOO 005 

J136 UlOO 006 

P=(0)»Q=(l)tSYM8=<2). NO OUTPUT 40H0 UlOO 010 

HWO UlOO 020 

ASSIGN P 10X43 UlOO 030 

Jll UlOO 040 

40H0 UlOO 050 

11W1 UlOO 060 

ASSIGN 10X44 UlOO 070 

Jll UlOO 080 

40H0 UlOO 085 

HW2 UlOO 090 

ASSIGN SYMB 10X45 UlOO 100 

Jll J32 UlOO 110 

CONSTRUCT IPLV SYMBOL, WITH UlOl J51 UlOl 000 
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J90 U101 005 

REGION=(0) .L0CATI0N=(1) . OUTPUT J136 UlOl 010 

(0) IS LOCAL NAME OF SYMBOL 40H0 UlOl 020 

11W0 UlOl 030 

ASSIGN REGION 10X33 UlOl 040 

Jll UlOl 050 

SAVE LOCAL NAME 40H0 UlOl 055 

ASSIGN LOCATION 11W1 UlOl 060 

10X34 UlOl 070 

Jll J31 UlOl 080 

CONSTRUCT DESIGNATED SYMBOL, U102 J51 U102 000 

(C)=Q, (1)=SYMB. OUTPUT (0) IS J90 U102 010 

LOCAL NAME OF D.SYMB J136 U102 020 

40H0 U102 030 

11W0 U102 040 

ASSIGN Q VALUE 10X44 U102 050 

Jll U102 060 

40H0 U102 070 

11W1 U102 060 

ASSIGN SYMB VALUE 10X45 U102 090 

Jll J31 U102 100 

CONSTRUCT - INPUT D.S.»(0) IS D.S. U103 10N1 U103 000 

NO OUTPUT 10X43 Jll U103 010 

CONSTRUCT - PROCESS»P=(0) » U104 J50 U104 000 

DES.SYMB.=(1) . OUTPUT (0) IS LOCAL 40H0 U104 010 

NAME OF PROCESS 11W0 U104 020 

10X43 U104 030 

Jll J30 U104 040 

CONSTR. J-DEF..NAME (O).OF (1). U105 10X41 Jll U105 000 

CONSTRUCT PROCESS. P = 0, Q = 0, U106 J50 U106 000 

(0)=SYMB. OUTPUT (0) IS LOCAL J90 U106 010 

NAME OF PROCESS J136 U106 020 

CREATE WORD 40H0 U106 030 

AND MAKE (0) ITS SYMB 11W0 U106 040 

10X45 U106 050 

Jll J30 U106 060 

COMPARE IPL SYMBOLS (0) AND (1) U107 J51 U107 000 

FOR IDENTITY. SET H5 11W1 U107 010 

10X33 U107 020 

J10 U107 030 

11W0 U107 040 

10X33 U107 050 

J10 U107 060 

TEST IF REGIONS EQUAL. J114 U107 070 

70J31 U107 080 

IF SO, 11W1 U107 090 

10X34 U107 100 

J10 U107 110 

11W0 U107 120 

10X34 U107 130 

J10 U107 140 

TEST IF LOCATIONS EQUAL. J114 J31 U107 150 

REPLACE ARGS. IN ROUTINE (0) U108 J40 U108 000 

WITH COPIES. U114 U108 010 
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FIND NEXT ARG. 
IF NONE, EXIT 

COPY ARGUMENT, AND 

INSERT COPY IH LIST 

TEST IF ARG. IS DETERMINER 



IF NOT, CONTINUE 

WITH NEXT ARGUMENT. 

IF A DETERMINERS RECURSE. 

NO MORE ARGS. » EXIT 

FIND ON LIST (0) ROUTINE WITH 

SAME PROCESS(DSCN) AS (1). SET 



90 



93 
92 
91 
U110 



H5 



PUT PROC(DSCN) IN 
COMPARE WITH LIST 



Wl 
ITEMS 



IF NOT 



SET H5 + IF FOUNDl 

STORE ITEM IN W2 

AND FIND PROC(DSCN) 

COMPARE IT WITH lWl 

SET H5 - IF FOUND 

FIND PROCESS OF DSCN 

OF ROUTINE (0) . 

(ASSUME IT EXISTS) 

TRANSFER HO-LIST ARGUMENT OF 

ROUTINE (0) TO WS. 

BRING IN N-LIST 

COPY IT 

AND STORE IN Wl 

FIND LIST OF ARGUMENTS 

OF DSCN OF (0) 



90 



Ulll 



U112 



92 



BRING IN TALLY 



CONSTRUCT TRANSFER PROCESS 
INSERT IN J-DEF OF (0) 



LOCATE NEXT ARGUMENT 
IF NONE, GO TO 92 



90 



J60 
7091 
60 WO 
52H0 

J74 
61W0 
40H0 
10X32 

J10 
10X37 

J2 
70 

30H0 
11W0 

U108 
30H0 

J42 
20WO 

Ulll 
20W1 
11W0 
1090 

J100 

J5 
60W2 

Ulll 
11W1 

J2 
10X20 

J10 
10X30 

J42 
60W0 
10X199 

J73 
2 0W1 
10X20 

J10 
10X31 

J10 

90 
30H0 
04J0 
12W1 
10L23 

U101 
10N1 
10N1 

U100 
11 WO 

J6 
10X22 
04J60 
700 



92 

90 
93 
J30 



J32 



J5 



J10 



J32 



J12 



U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 
U108 

uioa 

U108 
U108 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
U110 
Ulll 
Ulll 
Ulll 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 
U112 



020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
000 
010 
020 
000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
112 
114 
116 
120 
121 
122 
130 
140 
150 
170 
180 
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60W2 U112 190 

52H0 U112 200 

10X32 U112 210 

FIND TYPE OF ARGUMENT J10 U112 220 

10X35 U112 230 

TEST IF IN H-REGION ~>2 U112 240 

IF NOT, LOCATE NEXT ARGUMENT 7091 U112 250 

IF SO, 12W2 U112 260 

COPY OLD ARGUMENT J74 u112 270 

AND MAKE IT LOCAL J136 U112 275 

11W2 U112 280 

40H0 U112 290 

DELETE OLD ARGUMENT J68 U112 300 

J6 U112 310 

INSERT COPY AS NEW ARGUMENT J63 U112 320 

BRING IN ARGUMENT 12W2 U112 330 

40H0 U112 340 

ASSIGN X36 AS NEW TYPE 10X36 U112 350 

10X32 U112 360 

Jll U112 370 

CHANGE ARG TO WN U119 U112 380 

11W1 U112 410 

J60 U112 420 

70J7 U112 430 

, 20W1 U112 440 

92 91 U112 445 

91 11W2 90 U112 450 

LOC. ARGS. IN ROUTINES (2), (1) U113 J42 U113 000 

CORRESPONDING TO HN , N=(0) 20W0 U113 010 

IN ROUTINE (1) U114 U113 020 

PUT ARG. LIST OF (1) IN Wl 20W1 U113 030 

40H0 
U125 

U114 U113 040 

PUT ARG. LIST OF (2) IN W2 20W2 U113 050 

90 11W1 U113 060 

LOCATE NEXT ARG. OF ( 1 ) J60 U113 070 

IF NONE , TERMINATE 7091 U113 075 

AND SAVE IT 60W1 U113 080 

11W2 U113 090 

LOCATE NEXT ARG. OF (2) J60 U113 100 

20W2 U113 110 

52H0 U113 120 

10X32 U113 130 

J10 U113 140 

TEST IF ARG (1) IN HO 10X35 U113 150 

J2 U113 160 

IF NOT, TRY NEXT ARG. 7090 U113 170 

TEST IF LOC (ARG)= (0) 12W1 U113 182 

10X37 U113 184 

FIND ITS DETERMINER J10 U113 186 

70J7 U113 188 

SET UP TALLY IN W3 J90 U113 190 

J124 U113 192 
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COUNT NUMBER OF X150S 



COMPARE NUMBER WITH (0) 



IF NOTt TRY NEXT ARG. 

IF SO, INPUT LOCATION (2) 

AND ( 1 ) , AND EXIT. 

TERMINATE 

FIND ARG. LIST OF D5CN 

OF ROUTINE (0) 

(ASSUMES IT EXISTS) 

COMPILE ROUTINE (1) FROM 

ROUTINE (C). DSCN PROCESSES SAME 

COPY R{0) AND BRING IN TALLY 

( 1 ) HAS NAMED ARGS. * 

(0) HAS H-REGION ARGS. 



LOCATE ARGS. FOR HN 
IF NONE, TERMINATE 
DISCARD ARG. LIST OF R(0) 

COPY SUBSTITUTE ARGUMENT 
AND MAKE COPY LOCAL 



MAKE IPL WORD = UUWN 

INSERT WORD IN JDEF OF R(0> 

ADVANCE TALLY AND EXIT 

TERMINATE 

TRANSFER JDEF OF R(0) TO R(l). 

COPY JDEF 

AND MARK COPY LOCAL 





40W3 


U113 


194 




20W3 


U113 


196 


93 


J60 


U113 


202 




7092 


U113 


204 




12H0 


U113 


206 




10X150 


U113 


208 




J2 


U113 


210 




7093 


U113 


212 




11W3 


U113 


214 




J125 


U113 


216 




30H0 93 


U113 


218 


92 


3OH0 


U113 


220 




11W3 


U113 


222 




11 WO 


U113 


224 




J114 


U113 


226 




30W3 


U113 


228 




7090 


U113 


230 




11W2 


U113 


240 




11W1 J32 


U113 


250 


91 


30H0 J32 


U113 


260 


U114 


10X20 


U114 


000 




J10 


U114 


010 




10X31 J10 


U114 


020 


U115 


J43 


U115 


000 




J74 W2=R(1) U115 


010 




J136 


U115 


015 




10X199 W1=R(0) U115 


020 




J60 W0=TALLY U115 


030 




J22 


U115 


040 


91 


11W2 


U115 


050 




llwl 


U115 


060 




12 WO 


U115 


070 




U113 


U115 


080 




7090 


U115 


090 




30H0 


Ullb 


100 




52H0 


U115 


130 




J74 


U115 


150 




J136 


U115 


160 




10N1 


U115 


210 




10N1 


U115 


220 




U100 


U115 


230 




11W1 


U115 


240 




J6 


U115 


250 




10X22 


U115 


260 




J12 


U115 


270 




11W0 


U115 


280 




J60 


U115 


290 




20W0 91 


U115 


295 


90 


11W2 


U115 


300 




11W1 


U115 


310 




10X22 


U115 


320 




J10 


U115 


330 




J74 


U115 


335 




J136 


U115 


336 
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ERASE COPY OF R<0) AND EXIT 

COMPILE JDEF OF (O)FROM ROUTINE(l). U116 

BOTH HAVE SAME PROCESS IN DSCN 

(0) HAS H-REGION ARGS. 

( 1) HAS W-REGION ARGS. 

FIND ARGS. OF DSCN OF (0) 



CREATE TALLY IN WO 
TALLY NO. OF H-ARGS. 



COPY J-DEF OF (1) 



FIND LAST SYMBOL OF J-DEF 

ERASE ITS LINK 
SAVE J-DEF 
MAKE INSTR. J5N 

INSERT AT FRONT OF JDEF 



MAKE INSTR. J3N 

ASSIGN NO AS LINK OF INSTRUCTION 
INSERT INSTR. AT END OF JDEF 

INSERT JDEF IN ROUT. (0). 

TEST IF ARGUMENT IS 
IN H-REGION 

IF NOT» CONTINUE 

IF SO, TALLY AND CONTINUE 



CONSTRUCT NEW INSTRUCTION 



ASSIGN NO AS LINK OF INSTR. 
CREATE LOCAL SYMBOL 

SAVE IT 
BRING IN NO 



90 



91 



92 



10X22 

Jll 
11W1 

J72 
40H0 
10X20 

J10 
10X31 

J10 
10N0 

J120 

J50 
1090 

J100 

J6 
10X22 

J10 

J74 
40H0 

J61 
52H0 
10X46 

J14 
40H0 
10N49 

91 

J64 
40H0 
10N29 

91 
40H0 

92 

J65 
10X22 

Jll 
14X32 

J10 
10X35 

J2 
70J4 
11W0 

J125 
4J0 
11W0 

J120 
40H0 

J110 
10L10 

U101 
4J90 

J136 
40H0 

J50 
10N0 



J33 



J30 



J6 



U106 



U115 

U115 

U115 

U115 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 

U116 



340 

350 

360 

370 

000 

010 

020 

030 

040 

050 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

280 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 
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MAKE IT REGION OF SYMdOL 

MAKE 1WC LINK OF INSTR. 

REPLACE HS BY WS IN DSCN 

OF (0). OUTPUT (0)=N» NUMBER 

OF REPLACEMENTS. 

FIND LIST OF ARGS OF DSCN OF (0) 

DO 90 TO ARGS ON LIST 

BRING IN TALLY AND EXIT 
SAVE ARG. 

FIND ITS TYPE 

TEST IF DETERMINER 

DESIG. SYMd. FIND REGION 

TEST IF H-REGION 

IF NOT, EXIT 
CHANGE ARG TO WN 
AND ADD ONE TO TALLY 



DETERMINER. 

FIND ITS LIST OF ARGUMENTS 



MODIFY JDEF OF (0) TO TAKE N= ( 1 ) 
INPUTS FROM WS. NO OUTPUT. 



FIND AND SAVE JDEF OF (0) 
FIND ITS LAST SYMBOL 



ERASE ITS LINK 

SAVE JDEF 

MAKE INSTR. J5N 

INSERT AT FRONT OF JDEF 
MAKE INSTR. J3N 



10X33 


U116 520 


Jll 


U116 530 


11 WO 


U116 540 


10X46 


U116 550 


Jll J30 U116 560 


U117 J90 


U117 000 


J124 


U117 010 


J50 


1W0=TALLY U117 020 


10X20 


U117 030 


J10 


U117 040 


10X31 


U117 050 


J10 


U117 060 


1090 


U117 070 


J100 


U117 080 


11W0 J30 U117 090 


90 44H0 


U117 100 


10X32 


U117 110 


J1C 


U117 120 


10X37 


U117 130 


J2 


U117 140 


70 91 


U117 150 


40H0 


U117 155 


10X45 


U117 160 


J10 


U117 170 


10X33 


U117 190 


J10 


U117 200 


10L8 


U117 210 


J2 


U117 220 


7092 


U117 230 


U119 


U117 240 


11 WO 


U117 270 


J125 


U117 280 


92 30H0 J4 


U117 290 


91 10X20 


U117 300 


J10 


U117 310 


10X31 


U117 320 


J10 


U117 330 


1090 


U117 340 


J100 


U117 350 


U118 J51 


U118 000 


11W0 


U118 010 


10X22 


U118 020 


J10 


U118 030 


40H0 


U118 040 


J61 


U118 050 


52H0 


U118 060 


10X46 


U118 070 


J14 


U118 080 


40H0 


U118 090 


10N49 


U118 100 


91 


U118 110 


J64 


U118 120 


10N29 


U118 140 


91 


U118 150 
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ASSIGN NC AS LINK OF INSTR. 
INSERT INSTR. AT END OF JDEF 
CONSTRUCT NEW INSTRUCTION 
BRING IN N 
COMPUTE XN 



MAKE JXN 

ASSIGN NO AS LINK OF INSTR. 
CREATE LOCAL SYMbOL 

SAVE IT 
BRING IN NO 

MAKE IT REGION OF SYMBOL 
MAKE SYMBOL LINK OF INSTR. 



CHANGE ARG (0)=HN TO WN, 
NO OUTPUT 

FIND ITS DETERMINER 
SET UP TALLY IN WO 



TALLY AND ERASE X150S 
FROM DETERMINER 



91 



92 



U119 



93 



94 



CONSTRUCT SYMBOL WN 



ASSIGN IT AS X45 OF ARGUMENT 

MODIFY JDEF TO DO PROCESS (2) 
AFTER (3) WITH FIELD (1)=(0). SET 
H5+ IF (2) WAS NAMELESS, H5- IF 
(2) HAS NAME. NO OUTPUT. 

FIND FIRST INSTR. OF ( 1 ) 

IF IT HAS NAME, REPLACE (0) 
WITH NAME, IF NOT, SKIP TO 90. 



PUT (0) AS NAME OF FIRST OF (1). 



U120 



90 



40H0 

32 

J65 
4J0 
11W1 

J120 
40H0 

J110 
10L10 

U101 
4J90 

J136 
40H0 

J50 
10N0 
10X33 

Jll 
11 WO 
10X46 

Jll 
40H0 
10X37 

J10 

J90 

J124 

J50 
40H0 
10X150 

J62 
7094 
11W0 

J125 
30H0 

J68 
30H0 
30H0 
11W0 
30W0 
10L23 

U101 
10X45 

Jll 
10N9 

U101 

J53 
11W2 

J81 
40H0 
10X41 

J10 
7090 
20W0 
30H0 
11 WO 



J31 



U106 



J30 



93 



91 



una 

U116 

una 
una 
una 
una 

U118 
U118 

una 
una 
una 

U118 

una 
una 
una 

U118 

una 

U118 

una 

U118 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
'Jll 9 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U119 
U120 
U120 
U120 
U120 
U120 
U120 
U120 
U120 
U120 
U120 
U120 
U120 



160 
170 
IdO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
000 
010 
020 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
005 

010 
015 
020 
025 
030 
040 
050 
060 
070 
030 
090 
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FIND LAST INSTR. OF (3) 



MAKE 1WO ITS LINK. 
OR SYMB 

SET H5 AND EXIT 

MODIFY JDEF TO EXIT AFTER 

PROCESS (0) . NO OUTPUT 



91 



U122 



MAKE SYMB. 0. 



ASSIGN IT AS LINK OF LAST OF (0) 

PRINT THE JDEF OF (0) 

FIND JDEF 

CLEAR PRINT LINE 

PRINT LIST OF INSTRUCTIONS 

PROCESS INSTRUCTION 



ENTER TYPE IN COL. 28 



ENTER NAME IN COLS. 30-34 



ENTER SIGN IN COL. 35 



ENTER P IN COL. 36 



ENTER Q IN COL. 37 



ENTER SYMB IN COLS. 38-42 



ENTER LINK IN COLS. 44-48. 
PRINT. 

FIND VALUE OF ATTRIBUTE (1) 
AND ENTER ITS REGION AND 
LOCATION IN COLS. BtGINNING 

AT (0). 



90 
U125 



90 



910 



10X41 

Jll 
11W3 

J61 
52H0 
11 WO 
11W1 

Jll 

J5 

J61 
52H0 
40H0 
10X46 

J10 
70 

10NO 
40H0 

U101 
10X46 
30H0 
10X22 

J10 

J154 
1090 

J100 
04J0 
10X40 
10N28 

920 
10X41 
10N30 

910 
10X42 
10N35 

920 
10X43 
10N36 

920 
10X44 
10N37 

920 
10X45 
10N38 

910 
10X46 
1CN44 

910 

E50 
30H0 
04930 
70J31 

J160 
40H0 
10X33 



J33 



90 



Jll 
J6 



E50 



J4 



U120 

U120 

U120 

U120 

U120 

U120 

U120 

U120 

U120 

U122 

U122 

U122 

U122 

U122 

U122 

U122 

U122 

U122 

U122 

U122 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 

U125 



100 

110 

120 

130 

140 

150 

160 

170 

180 

000 

010 

012 

014 

016 

018 

020 

030 

040 

050 

060 

000 

010 

020 

030 

040 

050 

055 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

245 

250 

255 

260 

270 

280 

285 

290 
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ENTER REGION 



ENTER LOCATION 



FIND VALUE OF ATTRIdUTE (1) 
AND ENTER IN COL. (0) 



PROCESS FOR 910 AND 920 



911 



912 



920 



930 



ENTER IN PRINT LINE THE NAME OF 

TEST IF ROUTINE 
IS A DETERMINER 



IF NOT. GO TO 96 

IF SO, PRINT ITS VERB 



ENTER DATA TERMS OF VERB 



U126 



AND CONTINUE AT 96 
FIND ITS DSCN 

PUT PROCESS IN WO 

PUT ARGS IN Wl 

FIND NEXT WORD IN NAME 
EXIT IF NONE 

TEST IF 1H0 NAMES DATA TERM 



98 



97 



96 



91 



J10 
70912 

J157 
10X34 

J10 
70J31 

J157 
10N1 

J161 
04930 
70J31 

J160 

J157 
04J51 
40H0 
11W1 

J10 
700 
11 WO 

J41 
40H0 
10X32 

J10 
7096 
10X37 

J2 
7096 
40H0 
10X20 

J10 

J60 
7097 
12H0 

910 

E51 
30H0 
10X20 

J10 
40H0 
10X30 

J10 
20 WO 
10X31 

J10 
20W1 
11W0 

J60 
7092 
60W0 
52H0 
40H0 

J131 
7090 

910 



J31 



911 



J31 



9b 



96 



91 



U12d 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U125 
U12 5 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 



3 00 
310 
320 
330 
340 
350 
360 
365 
367 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
000 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
019 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
180 
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DOES NOT NA?/£ DATA TERM 

SPACE ONCE 

FIND NEXT ARGUMENT 

ERROR STOP 



90 



TEST IF ARG IS A DETERMINER 

IF NOT, SAVE IT 

TEST IF MEMbER OF hO LIST 



IF SO, BRANCH TO 95 
IF NOT, SAVE IT 
FIND ITS DETERMINER 



AND ENTER IT 
SPACE ONCE 
FIND ITS SYM60L 



ENTER IN PRINT LINE 
LINE SPACE IF NO ROOM 



ENTER NAME OF MEMoER 
OF HO LIST 



PRINT THE SDSC OF ROUTINE (0) 
CLEAR PRINT LINE 

FIND SDSC 



92 
93 

94 
910 



95 



U127 



30H0 

11W1 
E51 
J60 

70J7 

60W1 

52H0 

40H0 

10X32 
J10 

10X37 
J2 

70 

40H0 

10X32 
J10 

10X35 
J2 

70 

40H0 

10X37 
J10 

1093 
J100 
E51 

10X45 
J10 

40H0 

10X33 
J10 
910 

10X34 
J10 
910 
E51 

30H0 

10910 
J100 
U126 

40H0 
J157 

70 
E50 

10N10 
J160 
J60 

70J7 

52H0 
910 
E51 
J40 
J154 

10X24 
J10 



94 



95 



91 
J31 



91 



J8 



910 



91 



U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 

U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U126 
U127 
U127 
U127 
U127 



190 
191 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
301 
302 
303 
304 
305 
306 
310 
315 
320 
330 
335 
340 
350 
360 
370 
380 
390 
400 
410 
420 
425 
430 
440 
450 
460 
470 
475 
480 
490 
500 
510 
530 
540 
550 
560 
570 
000 
010 
020 
030 
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FIND LIST OF AFFECTED CELLS 

DO 90 TO AFFECTED CELLS 
AND EXIT 

FIND NAME OF CELL 

ENTER IT IN PRINT LINE 

FIND INPUT LIST 

AND ENTER ITS SYMBOLS 

ENTER PERIOD 

FIND OUTPUT LIST 

ENTER ITS SYMBOLS 

ENTER PERIOD AND PRINT LINE 
ENTER A SYMBOL IN THE PRINT LINE 



90 



91 



ENTER THE SYMBOLS. THEN COMMAS 
PRINT NAME* DSCN. JDEF, AND 
SDSC OF ROUTINE (0) 



92 
U126 



TEST OF IT HAS A DSCN 
IF NOT. SKIP TO 92 

ENTER DSCN IN PRINT LINE 

PRINT 

AND SPACE 



TEST IF IT HAS A JDEF 
IF NOT, SKIP TO 92 

PRINT JDEF 
AND SPACE 



TEST IF IT HAS A SDSC 



92 



93 



70J30 

10X71 
J10 

70J30 

1090 
J100 

60W0 

10X41 
J10 
91 
E53 

11W0 

10X75 
J10 

1092 
J100 
E53 

11W0 

10X76 
J10 

1092 
J100 
E53 

40H0 

10X33 
J10 
J157 

10X34 
J10 
91 
J50 
90 
E50 

11W0 

40H0 

10X20 
J10 

7092 

30H0 
U126 
E50 
E50 

11W0 

40H0 

10X22 
J10 

7093 

30H0 
U125 
E50 

11 WO 

40H0 

10X24 
J10 



J30 



E50 



J157 

E54 



U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U127 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 

U128 



040 

050 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

000 

010 

020 

040 

050 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 
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IF NOT. EXIT BY 9b 
PRINT SDSC AND EXIT 

TEST IF IT HAS AN IPLN 

IF NOT, EXIT 

IF SO, ENTER IN PRINT LINE 



COMPILE JDEF OF ROUT.(O) FROM 
JDEF OF ROUT.(l). ROUT ( 1 ) IS A J, 

COPY R1WO AND 
COPY ARGS OF DSCN 



REPLACE HS BY WS IN DSCN OF COPY, 
SAVE(0)=NUMSER OF REPLACEMENTS. 

COMPILE JDEF OF 1W2 

FROM JDEF OF 1W1. 

MODIFY JDEF OF 1W2 TO TAKE 

N=1W3 INPUTS FROM WS. 

BRING IN 1W0. 

FIND JDEF OF 1W2 

AND ASSIGN IT AS JDEF OF 1WO 



95 

90 



U130 



ASSIGN NAME TO JDEF. 

ERASE 1W2, 

AND TALLY CELL. 

AND EXIT 

FIND JDEF 

FIND FIRST INSTRUCTION, 



IF IT HAS NO NAME. 



ASSIGN IT V(X2-5) OF ROUTINE. 



910 



7095 
30HO 

U127 
30H0 
04J0 
11*0 
10X25 

J10 
700 
40H0 
10X33 

J10 

J157 
10X34 

J10 

J43 

J21 
11 WO 

J74 
40H0 

U108 
60W2 

U117 
2 0W3 
11W1 
11W2 

U131 
11W3 
11W2 

U118 
11*0 
11W2 
10X22 

J10 

J74 

J136 
10X22 

Jll 

910 
11W2 

J72 
11W3 

J9 
11W0 
10X22 

J10 

J81 
40H0 
10X41 

J10 
70 

11W0 
10X25 

J10 



J30 
J30 



J157 



J33 



911 



U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U128 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 
U130 



250 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

000 

010 

020 

030 

031 

040 

043 

050 

060 

070 

080 

090 

100 

110 

120 

130 

140 

150 

160 

161 

162 

165 

170 

175 

180. 

190 

200 

210 

220 

230 

240 

250 

260 

265 

266 

270 

280 

290 

300 
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IF IT HAS NAME, EXIT. 
COMPILE JDEF OF ROUT.(O) 
FROM JDEF OF ROUT.(l), (0) IS 
A J, (1) HAS W-REGION INPUTS 

SET UP TALLY IN W2 



COPY JDEF OF ( 1 ) AND 
ASSIGN COPY AS JDEF OF (0). 



LOCATE ARGS IN 1W0 AND lwl 
FOR HN. N=TALLY, IN 1W1. 



IF NONE, EXIT. 

SAVE ARG. OF 1W1 IN W3. 



ADD 1 TO TALLY 

SAVE LOC. OF ARG OF 1W0 IN W4 
FIND ARG. OF 1W0 
COMPILE (FIND ARG. ) 

INSERT (FIND ARG.) AT FRONT 
OF JDEF OF 1W0 

REPLACE ARG OF 1W0 WITH 
ARG OF 1W1 

ERASE TALLY AND EXIT 
INSERT COMPILED (FIND ARG.) 
DIVIDE JDEF 
SAVE REMAINDER 

ADD (FIND ARG. ) TO HEAD 
ADD REMAINDER 

COMPILE (FIND ARG) (0). FINAL 
ARGS. ARE DESIG. SYMBS. OUTPUT (0) 
IS LIST OF INSTRS. WITHOUT TERM. 

CREATE OUTPUT LIST IN Wl. 

TEST IF ARGUMENT 
IS DETERMINER. 

ARGUMENT NOT A DETERMINER, 



10X41 Jll U130 


310 


911 30H0 J8 


U130 


320 


U131 J45 


1WO=(0) U131 


000 


J21 


1W1=(1> U131 


010 


J90 


U131 


020 


J124 


U131 


030 


2 0W2 


1W2=TALLY U131 


040 


11 WO 


U131 


050 


11W1 


U131 


060 


10X22 


U131 


070 


J10 


U131 


080 


J74 


U131 


090 


J136 


U131 


100 


10X22 


U131 


110 


Jll 


U131 


120 


90 11W0 


U131 


130 


11W1 


U131 


140 


11W2 


U131 


150 


U113 


U131 


160 


7091 


U131 


170 


52H0 


U131 


180 


J74 


U131 


190 


20W3 


U131 


200 


11W2 


U131 


210 


J125 


U131 


220 


30H0 


U131 


230 


60W4 


U131 


240 


52H0 


U131 


250 


U132 


U131 


260 


11W0 


U131 


270 


10X22 


U131 


280 


J10 


U131 


290 


92 


U131 


300 


11W3 


U131 


310 


21W4 90 


U131 


320 


91 11W2 


U131 


330 


J9 J35 U131 


340 


92 44H0 


U131 


350 


J75 


U131 


360 


20W5 


U131 


370 


J6 


U131 


380 


J76 


U131 


390 


11W5 


U131 


400 


J76 J8 


U131 


410 


U132 40H0 


U132 


000 


J90 


U132 


010 


J136 


U132 


020 


40 Wl 


U132 


030 


20W1 


U132 


040 


10X32 


U132 


050 


J10 


U132 


060 


10X37 


U132 


070 


J2 


U132 


080 


70 90 


U132 


090 
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SET UP Q-TALLY IN WC 

SAVE ARGUMENT 

FIND ITS DETERMINER 



TALLY X151S=Q 

OF DETERMINER IN WO 



92 



94 



COPY SYMBOL OF ARGUMENT 



MAKE INSTRUCTION 1QS. 



INSERT INSTR. AT FRONT 

OF LIST 1W1. 

EXIT, LEAVING 1W1. 

SET UP INSTR. SU3LIST» 
AND MARK IT LOCAL* 
AND SAVE IT IN WO. 
SAVE DETERMINER 
FIND ITS DSCN 

FIND LIST OF ARGUMENTS 
AND PROCESS THEM. 



FIND JDEF 
COPY IT 

FIND LAST INSTRUCTION 
ERASE ITS LINK 



FIND END OF LIST 

INSERT LIST ON MAIN LIST 

INSERT SU3LIST IN LIST 

INSERT LIST ON MAIN LIST 
BRING IN LIST AND EXIT. 
COMPILE (FIND ARG.) 
AND INSERT IN SUBLIST. 



93 



90 



910 



J90 

J124 

J50 

40H0 

10X37 
J10 
J60 

7093 

12H0 

10X151 
J2 

7094 

11W0 
J125 

30H0 

30H0 

10X45 
J10 
J74 

11W0 

10N1 
U100 

11W1 
J6 
J64 

11W1 
J90 
J136 
J50 

40H0 

10X20 
J10 

10X31 
J10 

10910 
J100 

10X22 
J10 
J74 
J136 

40H0 
J61 

52H0 

10X46 
J14 

11W0 

J61 

95 
11W0 
11W1 

95 
11W1 

U132 
11W0 



94 



J31 



J31 



U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 

U132 



100 

110 

120 

130 

135 

140 

145 

150 

155 

160 

170 

180 

190 

200 

210 

220 

225 

230 

240 

250 

260 

270 

300 

310 

320 

330 

340 

350 

360 

363 

365 

366 

380 

390 

400 

410 

420 

430 

432 

433 

434 

435 

436 

437 

438 

440 

445 

460 

470 

480 

490 

500 

510 

520 
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INSERT LIST ON MAIN LIST 

INSERT LIST AT FRONT CF MAIN LIST 



COMPILE JDEF WITH NAME (2) 
LIST OF SEGMENTS (1) AND FLOW 
CHART (0). OUTPUT (0) IS JDEF 
NAME NEW JDEF 



ASSIGN NAME TO FIRST INSTRUCTION 



ATTACH SEGMENTS TO FLOW CHART 



ASSIGN ADDRESSES TO SEGMENTS 



ASSEMBLE SEGMENTS IN NEW JDEF 



ASSIGN ADDRESSES TO SEGMENT 
FIND JDEF OF SEGMENT 





95 J4 






U132 


530 


95 


44H0 






U132 


540 




J75 






U132 


550 




40W2 






U132 


560 




20W2 






U132 


570 




J6 






U132 


580 




J76 






U132 


590 




11W2 






U132 


600 




J76 






U132 


610 




30W2 J8 






U132 


620 


U133 


J45 






U133 


000 




10X199 


1W4 = 


= NAME 


U133 


005 




J73 


1W3 = 


--SEG L 


U133 


010 




J136 


1W2 = 


= FLOW 


U133 


020 




J90 


1W1 = 


=TALLY 


U133 


030 




J136 


1W0 = 


= JDEF 


U133 


040 




J24 






U133 


050 




11W3 






U133 


053 




J81 






U133 


054 




J81 






U133 


055 




11W4 






U133 


056 




10X41 






U133 


057 




Jll 






U133 


058 




11W2 






U133 


060 




40W3 






U133 


070 


91 


J60 






U133 


080 




7090 






U133 


090 




12H0 






U133 


100 




11W3 






U133 


110 




J60 






U133 


120 




70J7 






U133 


130 




60W3 






U133 


140 




52H0 






U133 


145 




10X22 






U133 


150 




Jll 91 






U133 


160 


90 


30H0 






U133 


170 




30W3 






U133 


180 




11W2 






U133 


190 




1092 






U133 


200 




J100 






U133 


210 




11W0 






U133 


215 




11W3 






U133 


220 




10910 






U133 


230 




J100 






U133 


235 




40H0 






U133 


240 




U122 J35 






U133 


245 


910 


11W0 






U133 


251 




J6 






U133 


260 




J76 






U133 


262 




20W0 J4 






U133 


264 


92 


64W5 


1W5 = 


= SEGM 


U133 


270 




10X22 






U133 


280 




J10 






U133 


290 




11W5 






U133 


310 
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Whd p of segment 

TE5T IF P=7 

IF NOT. GO TO 93 
IF P = 7 

FIND SYMB OF SEGM 

TEST IF SYMB IS 

IF NOT, GO TO 94 
IF SO, GO TO 93 

FIND SYMB ON FLOW 

FIND ITS JDEF 

BRING IN (FIELD) = <SYMtJ) 



94 



LINK SEGM TO SYM3 



BRING IN JDEF OF SEGM 
FIND LINK OF SEGM 



TEST IF LINK IS 

IF IT IS, EXIT 
IF LINK IS NOT C 

FIND SYMB ON FLOW 

FIND ITS JDEF 

BRING IN ( FIELD)* (LINK J 



LINK SEGM TO SYMd 
^IND SYMB ON FLOW 

FIND NAME OF SYMb 



93 



95 



920 



921 



10X43 

J10 
10N7 

J2 
7093 
11W5 
40H0 

925 
10X45 

J10 
40HO 
10N0 

J2 
7094 
30H0 
11W2 

J6 

920 
10X22 

J10 
70J7 
10X45 
11W1 

J60 
60W1 
52H0 

U120 
11W5 
10X22 

J10 
11W5 
10X46 

J10 
40H0 
10N0 

J2 
7095 
30H0 
11W2 

J6 

920 
10X22 

J10 
70J7 
10X46 
11W1 

J60 
60W1 
52H0 

U120 
04J50 
10921 

J100 
40H0 



93 



JS 



J4 



J30 



U133 


320 


U133 


330 


U133 


340 


U133 


350 


U133 


360 


U133 


370 


U133 


375 


U133 


376 


U133 


380 


U133 


390 


U133 


400 


U133 


410 


U133 


420 


U133 


430 


U133 


440 


U133 


450 


U133 


460 


U133 


470 


U133 


480 


U133 


490 


U133 


500 


U133 


510 


U133 


520 


U133 


530 


U133 


540 


U133 


545 


U133 


550 


U133 


560 


U133 


570 


U133 


580 


U133 


590 


U133 


600 


U133 


610 


U133 


620 


U133 


630 


U133 


640 


U133 


650 


U133 


660 


U133 


670 


U133 


680 


U133 


690 


U133 


700 


U133 


710 


U133 


720 


U133 


730 


U133 


740 


U133 


750 


U133 


755 


U133 


756 


U133 


760 


U133 


765 


U133 


770 


U133 


775 


U133 


780 
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COMPARE WITH 1W0 



EXIT, STOP GENERATOR 
EXIT. CONTINUE GENERATOR 



925 



COMPILE (0) FROM ITS DSCN 
FIND LIST OF COMPILED ROUTINES 
AND SEEK SOURCE ROUTINE 



U134 



IF FOUND, COMPILE (0) 
FROM DSCN OF XOURCE 
FIND SOURCE ROUTINE FOR 

FIND PROCESS OF DSCN 

OF SOURCE 



(0) 



90 



SET H5, 



COMPARE WITH PROCESS OF (0) 

EXIT WITH SIGNAL 

TO GENERATOR 

COMPILE JDEF OF ROUTINE (0) 

OUT.(O) IS JDEF, IF EXISTS. 

TEST IF IT EXISTS 

IF SO, EXIT WITH H5+ 

FIND CLOSEST DEFCINITION 
IF NONE, EXIT WITH H5- 

FIND AND APPLY 
RELEVANT PROCESS 

FIND CLOSEST DEFINITION 
TEST PROGRESS 
EXIT OR REPEAT. 



FIND CLOSEST DEF. OF ROUTINE (0) 



91 

U 1 3 5 

90 



U136 



10X41 

J10 
11 WO 

J2 
70 

30H0 
14X22 

J10 

J90 

J136 
40H0 
10N7 
10X43 

Jll 

J50 
10X196 
1090 

J100 
70 
11WO 

U130 
40H0 
10X20 

J10 
7091 
10X30 

J10 
7091 
11W0 
10X20 

J10 
10X30 

J10 

J2 
70 
30H0 

J41 
60W0 
10X22 

J10 
70 
11W0 

U136 
70J31 
40H0 
11W0 

U137 
11W0 

U136 

U138 
70J31 
11W0 

J50 
11W0 



J3 
J4 



J65 



J30 
J30 



J3 
J4 



J31 



90 



U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U133 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U134 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U135 

U136 

U136 



735 

790 

795 

800 

805 

810 

815 

820 

825 

830 

835 

840 

845 

850 

000 

010 

020 

030 

040 

050 

060 

070 

080 

090 

095 

100 

110 

115 

120 

130 

140 

150 

160 

170 

180 

190 

000 

010 

020 

030 

040 

050 

060 

070 

080 

090 

100 

110 

120 

140 

150 

160 

000 

010 



-85- 



90 



91 



FIND AND APPLY RELEVANT PROCESS 
TO ROUTINE (0) WITH DEF. (1) 
NO OUTPUT 



TEST IF DEF (0) IS CLOSER TO 
JDEF THAN DEF (1) 



COMPOSE FLOW CHART OF ROUTINE (0) 
FROM ITS JDEF 



STORE NAME OF CHART IN Wl 
ASSIGN IT TO ROUTINE 1W0 



FIND JDEF OF ROUTINE 
COPY JDEF, MARK IT LOCAL 

STORE IT IN W2 

CREATE SEGMENT 
AND STORE IT 

INSERT SEGMENT 

AT END OF FLOW CHART 

MAKE JDEF THE 
X22 OF SEGM. 

FIND NEXT INSTRUCTION 



FIND ITS P 



TEST IF P=7 

IF SO, DIVIDE SEGMENT 
AND REPEAT. 



U137 



U138 



U139 



91 



92 



93 



10X20 
J10 

70 

11 WO 

10X24 
J10 

70J30 

30H0 

10X20 

30H0 

10X24 
J6 

10X198 
J6 
J10 
Jl 

10X197 
J6 
J62 
J6 
J62 
J42 

60W0 
J90 
J136 

60 Wl 

10X26 
Jll 

11 WO 

10X22 
J10 
J74 
J136 

60W2 
J90 
J136 

40H0 

11W1 
J6 
J65 
J6 

10X22 
Jll 

11W2 
J60 

7094 

12H0 

10X43 
J10 

7090 

10N7 
J2 

7090 
J75 



90 



91 



J30 



J30 



93 
91 



U136 


020 


U136 


030 


U136 


040 


U136 


050 


U136 


060 


U136 


070 


U136 


080 


U136 


090 


U136 


100 


U136 


110 


U136 


120 


U137 


000 


U137 


010 


U137 


020 


U137 


030 


U137 


040 


U138 


000 


U138 


010 


U138 


020 


U138 


030 


U138 


040 


U139 


000 


U139 


010 


U139 


020 


U139 


030 


U139 


040 


U139 


050 


U139 


060 


U139 


070 


U139 


080 


U139 


090 


U139 


100 


U139 


110 


U139 


120 


U139 


130 


U139 


140 


U139 


150 


U139 


160 


U139 


170 


U139 


180 


U139 


190 


U139 


200 


U139 


210 


U139 


220 


U139 


230 


U139 


240 


U139 


260 


U139 


270 


U139 


280 


U139 


285 


U139 


290 


U139 


300 


U139 


310 


U139 


320 
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IF NOT, 90 12H0 U139 330 

10X46 U139 340 

J10 U139 350 

TEST IF LINK IS LOCAL 7092 U139 360 

IF SO, 10X33 U139 370 

DIVIDE SEGMENT AND REPEAT. J10 U139 380 

10N9 U139 390 

J2 U139 400 

IF. NOT, FIND NEXT INSTRUCTION 7092 93 U139 410 

94 30HO U139 420 
11W1 U139 430 

LOCATE NEXT SEGMENT 98 J60 U139 440 

IF NONE, EXIT 7099 U139 450 

12HO U139 460 

PUT ITS NAME IN WO 60W0 U139 470 

10X22 U139 480 

FIND ITS JDEF J10 U139 490 

AND PUT IT IN W2 60W2 U139 500 

FIND FIRST INSTRUCTION J81 U139 510 

10X41 U139 520 

FIND ITS NAME J10 U139 530 

IF NONE, SKIP TO 95 7095 U139 540 

11W0 U139 550 

J6 U139 560 

ASSIGN IT AS SEGMENT NAME 10X41 U139 570 

Jll U139 580 

95 11W2 U139 590 
FIND LAST INSTRUCTION J61 U139 600 

52H0 U139 610 

STORE IT IN W2 60W2 U139 620 

10X43 U139 630 

TEST IF ITS P=7 J10 U139 640 

7096 U139 645 

10N7 U139 650 

J2 U139 660 

IF NOT, SKIP TO 96 7096 U139 670 

IF SO, SET P=7 IN SEGMENT 11W0 U139 680 

10N7 U139 690 

10X43 U139 700 

Jll U139 710 

ASSIGN SYMB. OF INSTRUCTION llWO U139 720 

TO SEGMENT 11W2 U139 730 

10X45 U139 740 

J10 U139 750 

10X45 U139 760 

Jll 97 U139 770 

SET P=0 IN SEGMENT 96 11W0 U139 780 

10NO U139 790 

10X43 U139 800 

Jll 97 U139 810 

ASSIGN LINK OF INSTRUCTION 97 11W0 U139 820 

TO SEGMENT 11W2 U139 830 

10X46 U139 840 

J10 U139 850 
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EXIT 

COMPILE JDEF OF ROUTINE (0) 

FROM ITS SDSC. NO OUTPUT 

COMPILE IT 

ASSIGN A NAME TO IT 

ASSIGN A TERMINATION TO IT 

FROM ITS SDSC. NO OUTPUT. 

FIND SDSC. 

FIND INPUT-OUTPUT DIFFERENCE. 



TEST FOR NO DIFFERENCE. 



IF NO DIFFERENCE 

EXIT WITH H5 = - 

IF DIFFERENCE EXISTS* 

PRODUCE NEW ROUTINE WITHOUT DIFF.» 

STORE IT IN Wl. 

CONSTRUCT SDSC FOR A NEW ROUTINE, 

K1W0) KIWI). 
SAVE NEW ROUTINE 
COMPILE ITS JDEF 
IF NULL, SKIP TO 91 
BRING IN NEW ROUTINE 

PREFIX JDEF OF NEW ROUTINE TO JDEF 
OF 1W1, AND MODIFY SDSC OF lWl. 

ERASE PREFIXED ROUTINE 

CONSTRUCT SDSC FOR A NEW ROUTINE, 

0( 1W1 ) 0( 1W0) • 
SAVE NEW ROUTINE 
COMPILE ITS JDEF. 
IF NULL, SKIP TO 92 
BRING IN NEW ROUTINE 

SUFFIX JDEF OF NEW ROUTINE TO JDEF 
OF 1W1, AND MODIFY SDSC OF lWl. 
ERASE SUFFIXED ROUTINE 

BRING IN 1W0. 
FIND JDEF OF lWl, 



COPY IT. 

ASSIGN COPY AS JDEF OF lwo- 



10X46 

J 1 1 9 8 
99 30H0 J32 
U140 J50 
11 WO 

930 

910 

920 J30 
930 J42 
60W0 
10X24 

J10 

X7 
40H0 
10X50 

J10 
10X80 

J2 
7090 

J32 

J8 J3 

90 11W0 

U141 
60W1 
11W0 

U144 
60W2 

930 
7091 
11W2 
11W1 

U145 

91 11W2 

J72 
11 WO 
11W1 

U146 
60W2 

930 
7092 
11W2 
11W1 

U147 

92 11W2 

J72 
11 WO 
11W1 
10X22 

J10 

J74 

J136 
10X22 

Jll 
11W1 



U139 860 
U139 870 
U139 880 
U140 000 
U140 001 
U140 003 
U140 005 
U140 007 
U140 009 
1W0=(0) U140 010 
U140 020 
U140 030 
U140 040 
U140 050 
U140 055 
U140 056 
U140 060 
U140 070 
U140 080 
U140 090 
U140 095 
U140 100 
U140 110 
U140 120 
U140 130 
U140 140 
U140 150 
U140 160 
U140 165 
U140 170 
U140 180 
U140 190 
U140 195 
U140 200 
U140 210 
U140 220 
U140 230 
U140 240 
U140 250 
U140 255 
U140 260 
U140 270 
U140 280 
U140 285 
U140 290 
U140 300 
U140 310 
U140 320 
U140 330 
U140 340 
U140 350 
U140 360 
U140 370 
U140 380 
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ERASE 1W1 

AND EXIT WITH H5=+ 

FIND JDEF. 

FIND FIRST INSTRUCTION. 



IF IT HAS NO NAME, 

ASSIGN IT V(X25) OF ROUTINE, 

IF IT HAS NAME, EXIT. 



TEST IF LAST INSTRUCTION 
HAS A LINK. 



IF NOT, ASSIGN LINK 

IF SO, EXIT. 

PRODUCE ROUTINE FROM (0) 

WITHOUT DIFFERENCE (1). 

OUTPUT (0) IS NEW ROUTINE. 

FIND ROUTINE RELEVANT TO DIFF. 

COPY IT AND MARK COPY LOCAL. 
PUT RELEVANT ROUT. IN W2 



PUT ITS SDSC IN W3 

SAVE IT 

LOCATE ITS VARIABLE CELL. 

IF NONE, GO TO 90, AFTER J8 

FIND ITS NAME 

FIND ITS VARIABLES 



FIND VARIABLE OF DIFFERENCE, 
SUBSTITUTE IT FOR VAR. CELL NAME. 
BRING IN SDSC OF REL. ROUT. 
FIND VARIABLE OF DIFF. 



LOCATE CELL OF SDSC WITH THIS NAME 
IF NONE, GO TO 91. 



J72 


U140 390 


J32 J4 


U140 400 


910 11W0 


U140 410 


10X22 


U140 420 


J10 


U140 430 


J81 


U140 440 


40H0 


U140 450 


10X41 


U140 455 


J10 


U140 456 


70 911 


U140 460 


11 WO 


U140 470 


10X25 


U140 480 


J10 


U140 490 


10X41 Jll 


U140 500 


911 30H0 J8 


U140 510 


920 11W0 


U140 520 


10X22 


U140 530 


J10 


U140 540 


40H0 


U140 550 


J61 


U140 560 


52H0 


U140 570 


10X46 


U140 580 


J10 


U140 590 


70U122 


U140 600 


30H0 J8 


U140 610 


U141 J44 (0)=1W0 U141 000 


J21 (1)=1W1 U141 olO 


11W1 


U141 020 


U150 


U141 030 


J74 


U141 040 


J136 


U141 050 


60W2 


U141 060 


10X24 


U141 070 


J10 


U141 080 


60W3 


U141 090 


40H0 


U141 100 


U152 


U141 110 


7093 


U141 120 


52H0 


U141 130 


10X41 


U141 135 


J10 


U141 136 


11W1 


U141 140 


10X41 


U141 150 


J10 


U141 160 


U153 


U141 170 


90 HW3 


U141 180 


11W1 


U141 190 


10X41 


U141 200 


J10 


U141 210 


U151 


U141 220 


7091 


U141 230 


52H0 


U141 232 


10X41 


U141 234 


J10 


U141 235 
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BRING IN SDSC OF REL. ROUT. 11W3 U141 240 

11W0 U141 250 

FIND SDSC OF 1W0 10X24 U141 260 

J10 U141 270 

SUB. NAMES OF (0) FOR VAR. OF W3 U154 U141 280 

91 11W0 U141 290 

10X24 U141 300 

J10 U141 310 

FIND LIST OF AFFECTED CELLS OF 1W0 10X71 U141 320 

J10 U141 330 

LOCATE NEXT CELL 92 J60 0141 340 

7094 U141 350 

FIND CELL 12H0 U141 360 

FIND ITS NAME 10X41 U141 370 

J10 U141 380 

STORE IT IN W4 60W4 U141 390 

FIND W3 HW3 U141 400 

J6 U141 410 

LOCATE CELL OF W3 WITH SAME NAME U151 U141 420 

IF NONE, FIND NEXT. 7092 U141 430 

30H0 U141 440 

11W4 U141 450 

11W3 U141 460 

SUBSTITUTE NAMES OF SDSC (WO) FOR 11W0 U141 470 

VARIABLES OF (W3) IN CELL ( W4 ) 10X24 U141 480 

J10 U141 490 

U154 92 U141 500 

95 11W1 U141 510 

FIND ROUTINE RELEVANT TO Wit U150 U141 520 

FIND MODIFIED COPY. 11W2 U141 530 

MAKE JDEF OF (0) FROM (1). U155 U141 540 

LEAVE NEW ROUTINE UW2 J34 U141 5 50 

93 30H0 U141 560 
30H0 90 U141 565 

94 30H0 95 U141 570 
CONSTRUCT SDSC FOR A NEW ROUTINE U142 J53 U142 000 
(0) OF (1) TO (2) OF (3). (0)=NAME 11W1 U142 OlO 

10X24 U142 015 

J10 U142 016 

OF NEW ROUTINE. 10X71 U142 020 

J10 U142 030 

COPY X71 OF 1W1 J74 u142 ° 35 

J136 U142 036 

REPLACE 1W1 WITH ITS X71 20W1 U142 040 

HW3 U142 050 

10X24 U142 055 

J10 U142 056 

10X71 U142 060 

J10 U142 070 

J74 U142 075 

J136 U142 076 

REPLACE 1W3 WITH ITS X71 60W3 U142 080 

11W2 U142 090 

ERASE HALF OF 1W2 U143 U142 100 
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11W1 U142 110 

11W0 U142 120 

ERASE HALF OF 1W0 U143 U142 130 

11W0 U142 140 

10X75 U142 150 

TEST IF 1W1 NEEDS REVERSAL J2 U142 160 

70 90 U142 170 

11*1 U142 180 

IF SO, REVERSE 11W0 U142 190 

U148 9C U142 200 

90 11W2 U142 210 

10X76 U142 220 

TEST IF 1W3 NEEDS REVERSAL J2 U142 230 

70 91 U142 240 

11W3 U142 250 

IF SO, REVERSE llw2 U142 260 

U148 91 U142 270 

COMBINE LISTS OF AFFECTED CELLS 91 11W3 U142 280 

INTO NEW LIST. 11W1 U142 290 

U149 U142 300 

ASSIGN COMBINED LIST J90 U142 310 

AS X71 OF NEW ROUTINE. v 60W0 U142 320 

J6 U142 330 

J9C U142 332 

J136 U142 334 

60W2 U142 336 

J6 U142 338 

10X71 U142 340 

Jll U142 350 

11W2 U142 352 

10X24 U142 354 

Jll U142 356 

11W0 J33 U142 360 

ERASE ATTRIBUTE NCT-(O) OF J143 10X75 U143 000 

ITEMS OF (1). NO OUTPUT J2 U143 010 

7090 U143 020 

FIND ATTRIBUTE NOT-(O). 10X76 91 U143 030 

90 10X75 91 U143 040 

91 J50 U143 050 
ERASE IT. 1092 U143 060 

J100 J30 U143 070 

92 11W0 U143 080 

J14 J4 U143 090 

CONSTRUCT SDSC FOR A NEW ROUTINE U144 J50 U144 000 

X75(0) TO X75( 1 )=OUTPUT ROUTINE 10X75 U144 010 

11W0 U144 020 

10X75 U144 030 

U142 J30 U144 040 

PREFIX JDEF OF (1) TO JDEF OF (0) U145 J51 U145 000 

IN (0), AND MODIFY SDSC. 11W0 U145 010 

10X22 U145 02q 

FIND JDEF OF (1), J10 U145 030 

SAVE IT. 40H0 U145 040 

DIVIDE IT AFTER HEAD, J75 U145 050 
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SAVE TAIL IN W2. 
FIND JDEF OF (0) * 

INSERT IT AFTER HEAD OF JDEF (1). 

ADD TAIL. 

CONSTRUCT SDSC FOR A NEW ROUTINE 
X76<0) TO X76(1)=0UTPUT ROUTINE 



SUFFIX JDEF OF (1) TO JDEF OF 
(0) IN (0) ♦ AND MODIFY SDSC 

FIND JDEF OF (0) 
LOCATE ITS LAST SYMBOL 



U146 



U147 



FIND JDEF OF (1 ) 



INSERT AFTER JDEF OF (0). 

REVERSE ATTRIBUTES (0) OF ITEMS 
ON ( 1 ) . 



FIND ATTRIBUTE OPPOSITE TO (0). 

STORE (0) IN Wl» OPPOSITE IN WO. 
GENERATE ITEMS AND REVERSE. 



U148 



90 
91 



92 



FIND VALUE OF ATTRIBUTE, 

COPY IT, 

AND ASSIGN AS VALUE OF OPPOSITE 



ERASE ATTRIBUTE. 

COMBINE LISTS OF AFFECTcD CELLS, 

(0)=LX75,(1)=LX76,OUTPUT=NEW LIST. 

1W0=NEW LIST, 1W1=LX75, 

1W2=LX76. 

COMBINE PAIRS 



U149 



40W2 
20W2 
11W1 
10X22 
J10 
J74 
J136 
J76 
11W2 

J76 
30H0 

J50 
10X76 
11 WO 
10X76 
U142 
J51 
11 WO 
10X22 
J10 
J61 
11W1 
10X22 
J10 
J74 
J136 
J76 
30H0 
40H0 
10X75 

J2 
70 

10X75 
10X76 
J51 
1092 

J100 
40H0 
40H0 
11W1 
J10 
J74 
J136 
11W0 

Jll 
11W1 
J90 
J136 
J46 
J22 
11W1 
1090 

J100 
11W1 



J32 



J30 



J31 



90 
91 
91 



J31 



J14 



U145 


060 


U145 


070 


U145 


080 


U145 


090 


U145 


100 


U145 


105 


U145 


106 


U145 


110 


U145 


120 


U145 


130 


U145 


135 


U146 


000 


U146 


010 


U146 


020 


U146 


030 


U146 


040 


U147 


000 


U147 


010 


U147 


020 


U147 


030 


U147 


040 


U147 


050 


U147 


060 


U147 


070 


U147 


075 


U147 


076 


U147 


080 


U147 


085 


U148 


000 


U148 


010 


U148 


020 


U148 


030 


U148 


040 


U148 


050 


U148 


060 


U148 


070 


U148 


080 


U148 


090 


U148 


100 


U148 


110 


U148 


120 


U148 


130 


U148 


140 


U148 


145 


U148 


150 


U148 


160 


U149 


000 


U149 


010 


U149 


020 


U149 


030 


U149 


040 


U149 


050 


U149 


060 


U149 


070 
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ADD REMAINDER OF LX75 1091 U149 080 

J100 U149 090 

11W2 U149 100 

ADD REMAINDER OF LX76 1092 U149 110 

J100 U149 120 

11W0 J36 U149 130 

COMBINE PAIRS 90 24W3 U149 140 

11W2 U149 150 

GENERATE MEMBERS OF LX76 1093 U149 160 

J100 J4 U149 170 

93 24W4 U149 180 

11W3 U149 190 

10X41 U149 200 

FIND SYMBOL OF LX75 J10 U149 210 

11W4 U149 220 

10X41 U149 230 

FIND SYMBOL OF LX76 J10 U149 240 

COMPARE FOR EQUALITY. U107 U149 250 

IF UNEQUAL TRY NEXT OF LX76. 70J4 U149 260 

IF EQUAL, 11W1 U149 270 

DELETE FROM LX75, 11W3 U149 280 

U169 U149 290 

11W2 U149 300 

DELETE FROM LX76. 11W4 U149 310 

U169 U149 320 

11W4 U149 330 

40H0 U149 340 

ADD LX75 TO LX76, 11W3 U149 350 

10X75 U149 360 

J10 U149 370 

10X75 U149 380 

Jll U149 390 

IF PAIR IDENTICAL, DELETE 910 U149 395 

70 915 U149 396 

AND INSERT PAIR IN NEW LIST. 11W0 U149 400 

J6 U149 410 

STOP LX76 GENERATOR. J64 J3 U149 420 

ADD REMAINDER OF LX75 91 11W1 U149 430 

14X76 U149 435 

10X75 U149 440 

94 U149 450 

ADD REMAINDER OF LX76 92 11W2 U149 460 

14X75 U149 465 

10X76 U149 470 

94 U149 480 

ADD REMAINDER OF 1W3 TO 1W2 94 24W4 U149 490 

20W5 U149 500 

20W6 U149 505 

60W3 U149 510 

11W4 U149 520 

J10 U149 530 

TEST FOR NORMAL FORM 96 U149 540 

7095 U149 550 

IF NORMAL, DELETE 99 11W6 U149 560 
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IF NOT NORMAL, 

CONSTRUCT PAIR ATTRIBUTE, 



INSERT IT, 



ADD TO 1W0 

AND DELETE FROM 1W3. 



TEST IF NORMAL 



TEST IF FIRST SYMBOL IS XI 

IF SO, EXIT WITH H5+. 

TEST IF FIRST SYMBOL IS X2. 

IF NOT, EXIT WITH H5-. 

IF SO, TEST IF SECOND IS XI 

EXIT WITH H5 SET 



FIND ROUTINE RELEVANT 





11W3 






U169 





95 


11W3 
J90 
J136 

40H0 

10X1 
J64 

11W5 
Jll 

11W0 

11W3 






J64 


98 


96 


44H0 

J81 
40H0 
10X1 
J2 






70 


97 




10X2 






J2 






70J8 






J82 






10X1 






J2 





97 


30HO 


J8 


98 


J4 


99 


910 


44H0 
10X75 
JIO 

40W0 
20 WO 
40H0 
10X76 

JIO 




914 


J60 
70911 
12H0 
11 WO 

J60 
70912 
60W0 
5 2 WO 

U107 






70913 


914 


913 


30H0 


J30 


912 


30H0 






30H0 


913 


911 


30H0 
11W0 
J60 






J5 


913 


915 


30H0 


J3 


U150 


40H0 





U149 


570 


U149 


580 


U149 


590 


U149 


600 


U149 


610 


U149 


620 


U149 


630 


U149 


640 


U149 


650 


U149 


660 


U149 


670 


U149 


680 


U149 


690 


-U149 


700 


U149 


710 


U149 


720 


U149 


730 


U149 


740 


U149 


750 


U149 


760 


U149 


770 


U149 


780 


U149 


790 


U149 


800 


U149 


810 


U149 


830 


U149 


840 


U149 


845 


U149 


850 


U149 


855 


U149 


860 


U149 


865' 


U149 


870 


U149 


875 


U149 


880 


U149 


890 


U149 


895 


U149 


900 


U149 


905 


U149 


910 


U149 


915 


U149 


920 


U149 


925 


U149 


930 


U149 


935 


U149 


940 


U149 


945 


U149 


950 


U149 


955 


U149 


960 


U149 


965 


U149 


970 


U149 


975 


U150 


000 



-94- 



TO DIFFERENCE (0) 

FIND TYPE OF DIFFERENCE 



FIND LIST OF RELEVANT ROUTINES 



FIND TYPE OF AFFECTED CELL 



FIND RELEVANT ROUTINE 

LOCATE AFFECTED CELL (0) OF 

SDSC (1). 

FIND LIST OF AFFECTED CELLS 

LOCATE NEXT CELL 

IF NONE, EXIT WITH H5- 

FIND ITS NAME 



COMPARE WITH (0). 

EXIT OR CONTINUE 

LOCATE VARIABLE AFFECTED CELL 

IN SDSC (0) 

LOCATE NEXT CELL 

IF NONE, EXIT WITH H5- 

FIND ITS NAME 

FIND ITS TYPE 

TEST IF VARIABLE 

IF YES, EXIT WITH H5+ 
SUBSTITUTE (0) FOR VARIABLE (1) 
THROUGHOUT SDSC(2). 
FIND LIST OF AFFECTED CLESS, 
AND PROCESS IT. 

SAVE CELL 

FIND ITS NAME 

COMPARE IT WITH VARIABLE (1). 
IF UNEQUAL, SKIP TO 91 
IF EQUAL, SAVE CELL, 
ERASE ITS NAME, 

AND SUBSTITUTE (0). 





10X50 


U150 010 




J10 


U150 020 




10X90 


U150 030 




J6 


U150 040 




J10 


U150 050 




J50 


U150 060 




10X41 


U150 065 




J10 


U150 066 




10X32 


U150 070 




J10 


U150 030 




11W0 


U150 090 




J6 


U150 100 




J10 J30 


U150 110 


U151 


J50 


U151 -000 




10X71 


U151 010 




J10 


U151 020 


90 


J60 


U151 030 




70J30 


U151 040 




12H0 


U151 050 




10X41 


U151 060 




J10 


U151 070 




11 WO 


U151 080 




U107 


U151 090 




7090 J30 


U151 100 


U152 


10X71 


U152 000 




J10 


U152 010 


90 


J60 


U152 020 




700 


U152 030 




12H0 


U152 040 




10X41 


U152 050 




J10 


U152 060 




10X32 


U152 070 




J10 


U152 080 




10X39 


U152 090 




J2 


U152 100 




7090 J4 


U152 110 


U153 


J51 6Wl=VAR. U153 000 




10X71 1W0=SUB. U153 010 




J10 


U153 020 




1090 


U153 030 




J100 J31 


U153 040 


90 


40H0 


U153 050 




10X41 


U153 060 




J10 


U153 070 




11W1 


U153 080 




U107 


U153 090 




7091 


U153 100 




40H0 


U153 110 




10X41 


U153 120 




J14 


U153 130 




40H0 


U153 140 




11W0 


U153 150 




10X41 


U153 160 




Jll 91 


U153 170 
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FIND INPUT OF CELL, 



AND MA<E SUBSTITUTIONS. 

FIND OUTPUT OF CELL* 
AND MAKE SUBSTITUTIONS. 
SUBSTITUTE FOR CONTENTS OF LIST 
IF NO MORE CELLS, EXIT 
FIND FIRST SYMBOL 
AND COMPARE WITH 1W1 

IF UNEQUAL* FIND NEXT 
IF EQUAL 

MAKE SUBSTITUTION 



SUBSTITUTE NAMES OF SDSC (0) FOR 
VARIABLES OF SDSC (1) IN CELL 
NAMED (2) OF (1). 
LOCATE CELL 1W2 IN SDSC 1W0 

IF NONE, EXIT. 

PUT LOC. OF CELL OF WO IN W3 

LOCATE CELL W2 IN SDSC Wl 

ERROR STOP 

PUT LOC OF CELL OF Wl IN W4 



FIND OUTPUT LIST OF WO CELL 



FIND OUTPUT LIST OF Wl CELL.. 
AND STORE IN W5 



LOCATE NEXT SYMBOL OF CELL 
IF NONE, EXIT 



LOCATE NEXT SYM30L OF CELL 1 
IF NONE, EXIT VIA 91 



91 40H0 
10X75 

J10 
92 
10X76 
J10 
92 J4 

92 4J60 
70J8 
12H0 
11W1 

U107 
7092 
40W2 
60W2 
11WO 

J74 

J136 
21W2 

30W2 92 
U154 J46 

J22 
11W0 
11W2 

U151 
70J36 
20W3 
11W1 
11W2 

U151 
70J7 
20W4 
12W3 
10X76 

J10 
12W4 
10X76 

J10 
20W5 

90 
12W3 
10X75 

J10 
12W4 
10X75 

J10 
20W5 

90 J36 
90 4J60 
70J8 
60W6 
11W5 

J60 
7091 



U153 180 
U153 190 
U153 200 
U153 210 
U153 220 
U153 230 
U153 240 
U153 250 
U153 260 
U153 270 
U153 300 
U153 310 
U153 320 
U153 330 
U153 340 
U153 350 
U153 355 
U153 356 
U153 360 
U153 370 
1W0=SDSC0 U154 000 
1W1=SDSC1 U154 010 
1W2=CELL U154 020 
1W3=CELL0 U154 030 
1W4=CELL1 U154 040 
1W5=0UT.1 U154 050 
U154 060 
U154 070 
U154 080 
U154 090 
U154 100 
U154 110 
U154 120 
U154 130 
U154 140 
U154 150 
U154 160 
U154 170 
U154 180 
U154 190 
U154 200 
U154 210 
U154 215 
U154 220 
U154 230 
U154 240 
U154 250 
U154 260 
U154 270 
U154 280 
U154 285 
U154 290 
U154 300 
U154 310 
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STORE LOCATION IN W5 60W5 U154 320 

12H0 U154 330 

FIND TYPE OF SYMBOL OF 1 10X32 U154 340 

J10 U154 350 

TEST IF A VARIABLE 10X39 U154 360 

J2 U154 370 

IF NOT, GO TO 90 VIA 93 7092 U154 380 

52HO U154 390 

BRING IN SDSC 1 11W1 U154 420 

J6 U154 430 

12W6 U154 440 

SUBSTITUTE THROUGH SDSC 1 U153 90 U154 470 

91 30H0 J8 U154 480 

92 30H0 90 U154 490 
MAKE JDEF OF (0). (0) IS ROUTINE U155 J47 U155 000 

J21 U155 005 

WITH SDSC MODIFIED FROM (1). 11W0 Ul'55 010 

11W1 U155 020 

FIND JDEF OF (1) 10X22 U155 030 

J10 U155 040 

J74 U155 045 

J136 U155 046 

ASSIGN IT AS JDEF OF (0) 10X22 U155 050 

Jll U155 060 

BRING IN LISTS OF AFFECTED CELLS 93 91 U155 065 

93 04J0 U155 066 
11W0 U155 070 
10X24 U155 080 

FIND SDSC OF (0) J10 U155 090 

10X71 U155 100 

FIND LIST OF AFFECTED CELLS J10 U155 110 

AND PUT IN W2 20W2 U155 120 

11W1 U155 130 

10X24 U155 140 

FIND SDSC OF (1) J10 U155 150 

10X71 U155 160 

FIND LIST OF AFFECTED CELLS J 1.0 U155 170 

AND PUT IN W3 60W3 U155 180 

11W2 U155 190 

FIND NEXT CELL OF (0) 91 J60 U155 2C0 

7090 U155 210 

11W3 U155 220 

FIND NEXT CELL OF (1) J60 U155 230 

60W3 U155 240 

70J7 U155 250 

52H0 U155 260 

40H0 U155 220 

FIND ITS NAME 10X41 U155 280 

J10 U155 290 

TEST IF IT IS A VARIABLE 10X32 U155 300 

J10 U155 310 

10X39 U155 320 

J2 U155 330 

7092 U155 340 
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SO, STORE IN W4 20W4 U155 350 

STORE NAME OF SYMtiOL OF (0) IN W5 12H0 Ul35 360 

20W5 U155 370 

99 91 U155 375 

SUBSTITUTE W5 FOR W4 99 04J0 U155 380 

11W0 U155 385 

10X22 U155 385 

J10 U155 386 

THROUGHOUT (0) H'^ U155 39 9 

10X41 U155 395 

J10 U155 396 

HW5 U155 400 

10X41 U155 405 

J10 U155 406 

U156 U155 410 

92 30H0 91 U155 420 

90 30H0 U155 430 

3OH0 U155 440 

93 U155 450 

SUBSTITUTE FOR VARIABLES IN CELLS 94 J60 U155 460 

7095 U155 470 

60W2 U155 480 

52H0 U155 490 

10X75 U155 500 

J10 U155 510 

PUT X75 OF W2 IN W6 20W6 U155 520 

J60 U155 530 

70J7 U155 540 

60W3 U155 550 

52H0 U155 560 

10X75 U155 570 

J10 U155 580 

PUT X75 OF W3 IN W7 20W7 U155 590 

SUBS. FOR VARIABLE IN X75 96 U155 600 

12W2 U15 5 610 

10X76 U155 620 

J10 U155 630 

PUT X76 OF W2 IN W6 20W6 U155 640 

12W3 U155 650 

10X76 U155 660 

J10 U155 670 

PUT X76 OF W3 IN W7 20W7 U155 680 

SUBS. FOR VARIABLE IN X76 96 U155 690 

HW3 U155 700 

11W2 94 U155 710 



EXIT 



95 30H0 U155 720 

30H0 J37 U155 730 

FIND VARIABLES AND SUBSTITUTE 96 04J0 U155 740 

11W6 U155 745 

FIND NEXT IN W6 J60 U155 750 

IF NONE, EXIT ™J8 U ,J" ™° 

60W6 U155 770 

HW7 U155 780 

J60 U155 790 
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70J7 U155 800' 

60W7 U155 810 

TEST IF NEXT IN W7 IS VARIABLE 12H0 U155 620 

10X32 U155 830 

J10 U155 840 

10X39 U155 850 

J2 U155 860 

IF NOT, FIND NEXT 7098 U155 870 

IF SO, 52H0 U155 880 

SUBSTITUTE W5 FOR W4 20W4 U155 890 

THROUGHOUT WO 52H0 U155 900 

20W5 U155 910 

11W0 U155 920 

10X22 U155 921 

J10 U155 922 

11W4 U155 924 

11W5 U155 926 

U156 96 U155 928 

98 30H0 U155 930 

30H0 96 U155 940 

SUBSTITUTE SYMBOL (0) FOR U156 J52 U156 000 

VARIABLE (1) IN JDEF OF (2) 11W2 U156 010 

FIND NEXT LINE OF JDEF 90 J60 U156 020 

IF NONE, EXIT 7091 U156 030 

12H0 U156 040 

FIND ITS SYMd. 10X45 U156 050 

J10 U156 060 

COMPARE SYMd WITH 1W1 11W1 U156 070 

U107 U156 080 

IF UNEQUAL, FIND NEXT 7090 U156 090 

IF EQUAL, 12H0 U156 100 

COPY 1W0 AS NEW SYMB 11W0 U156 110 

FOR LINE OF JDEF J74 U156 120 

J136 U156 130 

10X45 U156 140 

Jll 90 U156 210 

91 30H0 J32 U156 220 

DELETE CAREFULLY SYMBOL (0) U169 J41 U169 000 

FROM LIST (1) 20W0 U169 010 

40H0 U169 020 

11W0 U169 030 

LOCATE (0) ON (1) J62 U169 040 

70J30 U169 050 

DIVIDE LIST AFTER LOC ( ) J75 U169 060 

PUT REMAINDER IN Wl 20W1 U169 070 

DELETE LAST SYMBOL FROM (1) 40H0 U169 080 

J70 U169 090 

LOCATE LAST SYMBOL OF (1) J61 U169 100 

11W1 U169 110 

REATTACH REMAINDER J76 U169 120 

30H0 J31 U169 130 

FIND BIGGEST DIFFERENCE X5 J43 X5 000 

BETWEEN DSNS (0) AND (1) 20W0 X5 010 

60W1 X5 020 
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FIND PROCESS OF ( 1) 



FIND PROCESS OF (0) 

COMPARE PROCESSES 

IF EQUAL, COMPARE ARGUMENTS 

IF UNEQUAL. SIGNAL X62 

FIND ARG. LISTS OF (0) AND (1) 

FIND NEXT ARGS. OF (0) AND (1) 

NONE, GO TO 91 

TEST ARGUMENT TYPES 

IF UNEQUAL, EXIT WITH SIGNAL 

ALL TYPES EQUAL, TEST ARGS. 

FIND NEXT ARGS, OF (0) AND (1) 

NONE, GO TO 94 



90 
92 



91 
93 



FIND ARGUMENT TYPt 



TEST IF DETERMINER 

IF NOT, FIND NEXT ARG. 

IF SO, FIND 3IGGEST DIFFERENCE 

SAVE DIFFERENCE SIGNAL 

TEST IF NO DIFFERENCE 

IF DIFFERENCE, EXIT WITH SIGNAL 
NO DIFFERENCE, FIND NEXT ARG. 
NO DETERMINER DIFFERENCES 
FIND NEXT ARGS. OF (0) AND (1) 
NONE, EXIT WITH X55 

TEST IF NAMES 



SIGNAL DIFFERENT NAMES 
SIGNAL DIFFERENT LOCATIONS 
EXIT, NO DIFFERENCE 
FIND ARGUMENT LISTS 

FIND LIST OF (0) 
AND PUT IN W2. 



FIND LIST OF (1) , 
AND PUT IN W3. 
FIND NEXT ARGS. OF 
FIND NEXT OF (0) 
IF NONE, SET H5 - 



94 



96 

95 
910 



(0) AND (1) 



911 



FIND NEXT OF < 1 ) 



10X30 

J10 
11W0 
10X30 

J10 

J2 
70 
10X62 

910 

911 
7091 

X6 
70J33 

910 

911 
7094 
40H0 
10X32 

J10 
70J7 
10X37 

J2 
7093 

X5 
40H0 
10X55 

J2 
7097 
30HO 

910 

911 
7095 
40H0 
10X36 

J2 
7096 
10X66 
10X67 
10X55 
11W0 
10X31 

J10 
20W2 
11W1 
10X31 

J10 
20W3 
11W2 

J60 
700 
60W2 
52H0 
11W3 

J60 



90 
J33 



92 



93 



J33 
J33 
J33 



X5 


030 


X5 


0^0 


X5 


050 


X5 


060 


X5 


070 


X5 


060 


X5 


090 


X5 


100 


X5 


HO 


X5 


120 


X5 


130 


X5 


140 


X5 


150 


X5 


160 


X5 


170 


X5 


180 


X5 


190 


X5 


200 


X5 


210 


X5 


220 


X5 


230 


X5 


240 


X5 


250 


X5 


260 


X5 


270 


X5 


280 


X5 


290 


X5 


300 


X5 


310 


X5 


320 


X5 


330 


X5 


340 


X5 


350 


X5 


360 


X5 


3 70 


X5 


380 


X5 


390 


X5 


400 


X5 


410 


X5 


420 


X5 


430 


X5 


440 


X5 


450 


X5 


460 


X5 


470 


X5 


480 


X5 


490 


X5 


500 


X5 


510 


X5 


520 


X5 


530 


X5 


540 


X5 


550 


X5 


560 
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TEST TYPES OF ARGUMENTS (0), (1) X6 
OUTPUT (0) IS DIFFERENCE, SET H5. 



FIND ARGUMENT TYPE OF (1) 
STORE IN W3 



FIND ARGUMENT TYPE OF (0) 

STORE IN W2 

COMPARE ARGUMENT TYPES 

UNEQUAL, TEST IF (0) DETERMINER 



SIGNAL (0) IS DETERMINER 

TEST IF (0) IS A NAME 91 



92 
90 
X7 



SIGNAL (0) A NAME 

IF (0) A LOCATION, SIGNAL X69 

FIND LARGEST DIFFERENCE 

BETWEEN INPUT AND OUTPUT 

OF SDSC (0). PUT DIFF. IN (0). 

PUT LIST OF AFFECTED CELLS IN WO. 

FIND DIFFERENCE, NOT IN HO. 

EXIT IF FOUND 

FIND DIFFERENCE IN HO 

EXIT IF FOUND 

IF NOT FOUND, 

LEAVE NULL DIFFERENCE, 
V(X50)=X80, IN HO 

PUT AFFECTED CELL IN Wl 90 

FIND TYPE OF AFFECTED CELL 
COPY AND SAVE ITS NAME 



TEST IF HO 



70J7 
60W3 
52H0 

J43 
20W0 
6 0W1 
10X32 
J10 
60W3 
11 WO 
10X32 
J10 
60W2 
J2 
70 

11W2 
10X37 

J2 
7091 
10X65 
11W2 
10X36 

J2 
7092 
10X68 
10X69 
J5 
J44 
10X71 
J10 
60WO 
1090 

J100 
70J34 
11W0 
1091 

J100 
70J34 
J90 
J136 
40H0 
10X80 
10X50 
Jll 
64rtl 
10X41 
J10 
J74 
J136 
40H0 
10X32 
J10 
10X35 
J2 



J33 



90 



90 

J33 

J33 



J34 



X5 


570 


X5 


580 


X5 


590 


X6 


000 


X6 


010 


X6 


020 


X6 


030 


X6 


040 


X6 


045 


X6 


050 


X6 


060 


X6 


070 


X6 


075 


X6 


080 


X6 


090 


X6 


100 


X6 


110 


X6 


120 


X6 


130 


X6 


140 


X6 


150 


X6 


160 


X6 


170 


X6 


180 


X6 


190 


X6 


200 


X6 


210 


X7 


000 


X7 


010 


X7 


020 


X7 


030 


X7 


040 


X7 


050 


X7 


060 


X7 


070 


X7 


080 


X7 


090 


X7 


100 


X7 


110 


X7 


120 


X7 


125 


X7 


130 


X7 


140 


X7 


150 


X7 


160 


X7 


170 


X7 


160 


X7 


182 


X7 


183 


X7 


184 


X7 


190 


X7 


200 


X7 


220 


X7 


230 
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IF SO, EXIT. 

IF NOT, CREATE DIFFERENCE, 

SAVE ITS NAME IN W2 , 

ASSIGN TYPE OF CELL 

FIND TYPE OF DIFFERENCE 



ASSIGN TYPE TO 1W2 

BRING DIFFERENCE IN, AND QUIT 

FIND TYPE OF AFFECTED CELL 



it. 



91 



COPY ITS NAME 



SAVE AFFECTED CELL 



FIND ITS FIRST INPUT SYMBOL. 
AND SAVE IN W3. 
SAVE AFFECTED CELL 



FIND ITS FIRST OUTPUT SYMBOL 
COMPARE SYMBOLS 

IF IDENTICAL, 

CALL DIFFERENCE (COPY) 

NOT IDENTICAL, 

COUNT LIST X75 



COUNT LIST X76 



93 



94 



IF LISTS EQUAL 

CALL DIFFERENCE (REPLACE) 



IF 1W4 LARGER, 

CALL DIFFERENCE (ADD) 

IF SMALLER, (DELETE) 

DATA 



95 



96 



7092 
J90 
J136 

60W2 
J6 

10X41 

Jll 
11W1 

93 
11W2 

J6 
10X50 

Jll 
11W2 
64W1 
10X41 

J10 

J74 

J136 

J3 
44H0 
10X75 

J10 

J81 
20W3 
40HO 
10X76 

J10 

J81 
11W3 

U107 
7094 
30H0 
10X84 
40H0 
10X75 

J10 

J126 
2 0W3 
10X76 

J10 

J126 
60W4 
11W3 

J114 
7095 
10X83 
11W3 
11W4 

J115 
7096 
10X82 
10X81 
1 



Jb 



J3 



92 









X7 


240 


X7 


250 


X7 


260 


X7 


270 


X7 


280 


X7 


290 


X7 


300 


X7 


310 


X7 


320 


X7 


330 


X7 


340 


X7 


350 


X7 


360 


X7 


370 


X7 


3&0 


X7 


390 


X7 


400 


X7 


410 


X7 


420 


X7 


430 


X7 


440 


X7 


450 


X7 


460 


X7 


470 


X7 


480 


X7 


490 


X7 


500 


X7 


510 


X7 


520 


X7 


530 


X7 


540 


X7 


550 


X7 


560 


X7 


570 


X7 


580 


X7 


590 


X7 


600 


X7 


610 


X7 


620 


X7 


630 


X7 


640 


X7 


650 


X7 


660 


X7 


670 


X7 


680 


X7 


690 


X7 


700 


X7 


710 


X7 


720 


X7 


730 


X7 


740 


X7 


750 


X7 


760 
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A 
B 
C 
D 
E 
F 
G 
H 
I 

J 
K 
L 
M 
N 

P 
Q 
R 
S 
T 
U 
V 

w 

X 

Y 

z 



1 

2 

3 

4 

5 

6 

7 

8 

9 

(0) 

(1) 

(2) 

(3) 

(4) 



A0 








LI 


21A 




L2 


216 




L3 


21C 




L4 


21D 




L5 


21E 




L6 


21F 




L7 


21G 




L8 


21H 




L9 


211 




L10 


21J 




Lll 


21K 




L12 


21L 




L13 


21M 




L14 


2 IN 




L15> 


210 




L16 


21P 




L17 


21Q 




LIB 


21R 




L19 


21S 




L20 


21T 




L21 


21U 




L22 


21V 




L23 


21W 




L24 


21X 




L25 


21Y 




L26 


21Z 




L30 


210 




L31 


211 




L32 


212 




L33 


213 




L34 


214 




L35 


215 




L36 


216 




L37 


217 




L38 


218 




L39 


219 




L40 


21(0) 




L41 


21(1 ) 




L42 


21(2) 




L43 


21(3) 




L44 


21(4) 




NO 


1 


0000 


Nl 


1 


0001 


N2 


1 


0002 


N3 


1 


C003 


N4 


1 


0004 


N5 


1 


0005 


N6 


1 


0006 


N7 


1 


0007 


N8 


1 


0008 


N9 


1 


0009 


N10 


1 


0010 


N13 


1 


0013 



AO 


000 


LI 


000 


L2 


000 


L3 


ooo 


L4 


000 


L5 


000 


L6 


ooo 


L7 


000 


L8 


000 


L9 


000 


L10 


000 


Lll 


ooo 


L12 


ooo 


L13 


000 


L14 


000 


L15 


000 


L16 


000 


L17 


000 


L18 


000 


L19 


000 


L20 


ooo 


L21 


000 


L22 


ooo 


L23 


000 


L24 


000 


L25 


000 


L26 


ooo 


L30 


000 


L31 


000 


L32 


000 


L33 


000 


L34 


000 


L35 


000 


L36 


000 


L37 


000 


L38 


000 


L39 


000 


L40 


000 


L41 


000 


L42 


000 


L43 


ooo 


L44 


000 


NO 


000 


Nl 


000 


N2 


000 


N3 


000 


N4 


ooo 


N5 


000 


N6 


000 


N7 


000 


N8 


000 


N9 


000 


N10 


000 


N13 


ooo 
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DIFFERENCE 

REMAINDER OF PUSHDOWN LIST 



VARIABLE SI 



VARIABLE SO 



VARIABLE S2 



DSCN (DESCRIPTIVE NAME) 
LDEF (L-DEFINITION) 
JDEF ( J-DEFINITION) 
ASOJ (ASSOCIATED J) 
SDSC OF ROUTINE 
IPLN OF ROUTINE 
PROCESS 



N28 


1 


0028 


N2 9 


1 


0029 


N30 


1 


0030 


N35 


1 


00 3 5 


N36 


1 


0036 


N3 7 


1 


0037 


N38 


1 


0038 


N44 


1 


0044 


N49 


1 


0049 


N50 


1 


0050 


N60 


1 


0060 


N6 5 


1 


0065 


N7 7 


1 


0077 


N116 


1 


0116 


XO 








XI 


90 





90 



X32 

XI 
X33 
L18 
X34 






NO 





X2 


90 





90 




X32 

X38 

X33 

L19 

X34 






Nl 





X3 


90 





90 




X32 

X39 

X33 

L19 

X34 






NO 





X4 


90 





90 




X32 

X39 

X33 

L19 

X34 






N2 





X20 








X21 








X22 








X23 








X24 








X25 








X30 









N2b 


000 


N29 


000 


N30 


000 


N35 


000 


N36 


000 


N37 


000 


N38 


000 


N43 


000 


N49 


000 


N50 


000 


N60 


000 


N65 


000 


N77 


000 


N116 


000 


XO 


000 


XI 


000 


XI 


010 


XI 


020 


XI 


030 


XI 


040 


XI 


050 


XI 


060 


XI 


070 


X2 


000 


X2 


010 


X2 


020 


X2 


030 


X2 


040 


X2 


050 


X2 


060 


X2 


070 


X3 


000 


X3 


010 


X3 


020 


X3 


030 


X3 


040 


X3 


050 


X3 


060 


X3 


070 


X4 


000 


X4 


010 


X4 


020 


X4 


030 


X4 


040 


X4 


050 


X4 


060 


X4 


070 


X20 


000 


X21 


000 


X22 


000 


X23 


000 


X24 


000 


X25 


000 


X30 


000 



-104- 



LIST OF ARGUMENTS 

TYPE (OF ARGUMENT) 

REGION 

LOCATION 

MEMBER OF HO LIST 

NAMED SYMBOL 

DETERMINER 

UNKNOWN CONSTANT 

VARIABLE 

TYPE (OF IPL WORD) 

NAME 

SIGN 

P-PREFIX 

Q-PREFIX 

SYMB 

LINK 

TYPE OF DIFFERENCE 

TEST FOR DIFFERENCE 

NO DIFFERENCE 

JDEF ABSENT 

LDEF ABSENT 

DSCN-WRONG FUNCTION NAMc 

DSCN-WRONG ARGUMENT TYPE 

LDEF HAS CONNECTIVE 

DSCN-DETERM. FOR OTHER 

DSCN-ONE NAME FOR OTHER 

DSCN-ONE LOC FOR OTHER 

DSCN-NAME FOR LOCATION 

DSCN-LOCATION FOR NAME 

OPERATOR ROUTINE 

LIST OF AFFECTED CELLS OF SDSC 

INPUT STATE OF CELL 

OUTPUT STATE OF CELL 

SDSC - NO DIFFERENCE 

SDSC - DELETION 

SDSC - ADDITION 

SDSC - REPLACEMENT 

SDSC - COPY 

INDEX TO RELEVANT ROUTINES 

LIST OF ADD ROUTINES 
LIST OF REPLACE ROUTINES 



ADD, 

HO IS AFFECTED CELL 



REPLACE. 

NAMED CELL IS AFFECTED CELL 

ROUT. INSERT ( 1 ) AT END OF 
VALUE LIST OF ATTRIBUTE 



X31 








X32 








X33 








X34 








X35 








X36 








X37 








X38 








X39 








X40 








X41 








X42 








X43 








X44 








X45 








X46 








X50 








X51 








X55 








X63 








X61 








X62 








X63 








X64 








X65 








X66 








X67 








X68 








X69 








X70 








X71 








X75 








X76 





c 


X80 


c 





X81 








X82 








X83 








X84 








X90 


90 





90 




X82 
91 
X83 






92 





91 


93 





93 



X35 






X107 





92 


94 





94 



X36 






X106 





X100 


90 





90 








X31 


000 


X32 


000 


X33 


000 


X34 


000 


X35 


000 


X36 


000 


X37 


000 


X38 


000 


X39 


000 


X40 


000 


X41 


000 


X42 


000 


X43 


000 


X44 


000 


X45 


000 


X46 


000 


X50 


000 


X51 


000 


X55 


000 


X60 


000 


X61 


000 


X62 


000 


X63 


000 


X64 


000 


X65 


000 


X66 


000 


X67 


000 


X6d 


000 


X69 


000 


X70 


000 


X71 


000 


X75 


000 


X76 


000 


X80 


ooc 


X81 


000 


X82 


000 


X63 


000 


X84 


000 


X90 


000 


X90 


050 


X90 


100 


X90 


110 


X90 


200 


X90 


210 


X9C 


300 


X90 


350 


X90 


400 


X90 


410 


X90 


500 


X90 


550 


X90 


600 


X90 


610 


X100 


000 


X100 


010 



-105- 



(0) OF (2) . 
DSCN IS 91. 



PROCESS IS XllO 

ARGS. ARE 

X12Q 

X121 

SYMb. = J13 



ROUT. INSERT (0) AT END OF ( 1 ) 



JDEF IS 94 



PROCESS IS XllO 



J65 



PROCESS J65 



LINK 



ROUT. FIND V( (0) ♦ (1 ) ) 





X25 






97 






X20 






91 





91 


92 





92 




X30 
XllO 
X31 






93 





93 



X120 






X121 





97 


99 





99 




X33 
LIO 
X34 






N13 





X101 


90 





90 




X20 
91 
X22 






94 





91 


92 





92 




X30 
XllO 
X31 






93 





93 



X122 






X120 





94 









95 





95 


96 





96 




X45 
97 
X46 






98 





9 7 


99 





99 




X33 
LIO 
X34 






N65 





98 


910 





910 



X33 






NO 





X102 


90 





90 








X100 


015 


X100 


016 


X100 


020 


X100 


030 


X100 


040 


X100 


050 


X100 


060 


X100 


070 


X100 


060 


X100 


090 


X100 


100 


X100 


110 


X100 


120 


X100 


210 


X100 


220 


X100 


230 


X100 


240 


X100 


250 


X100 


260 


X101 


000 


X101 


010 


X101 


020 


X101 


030 


X101 


035 


X101 


036 


X101 


040 


X101 


050 


X101 


060 


X101 


070 


X101 


080 


X101 


090 


X101 


100 


X101 


110 


X101 


120 


X101 


130 


X101 


140 


X101 


150 


X101 


160 


X101 


170 


X101 


180 


X101 


190 


X101 


200 


X101 


210 


X101 


220 


X101 


230 


X101 


240 


X101 


250 


X101 


260 


X101 


270 


X101 


280 


X101 


290 


X101 


300 


X102 


000 


X102 


010 



-106- 



TYPE — DETERMINER 

JDEF IS 94 

VERB 

PROCESS IS Xlll. FIND VALUE 



ARGS. ARE 
X122. (0) 
X120. (1) 



PROCESS J10 



LINK 



VERB (FIND) 

ROUT. TESTN IF (0) LESS THAN NO 



PROCESS IS X112 TESTN, LESS 



ARGUMENTS 

(0) 

NO 

ROUT. TESTN IF (0) LESS THAN (1) 



91 
92 



93 



94 

95 
96 



97 
99 



98 

910 



920 
XI 03 
90 



91 
92 



93 



94 

X104 

90 



X32 

X37 

X20 

91 

X22 

94 

92 

920 



X30 

Xlll 

X31 

93 



X122 

X120 



95 

96 



X45 

97 

X46 

98 

99 



X33 
L10 
X34 
N10 
910 


X33 
NO 
21FIND 
90 


X20 
91 
X22 
94 
92 


X30 
X112 
X31 
93 


X122 
X124 


90 

X20 






























X102 


02C 


X102 


030 


X102 


040 


X102 


050 


X1C2 


060 


X102 


070 


X102 


030 


X102 


085 


X102 


090 


X102 


100 


X102 


110 


X102 


120 


X102 


130 


X102 


140 


X102 


150 


X102 


160 


X102 


170 


X102 


180 


X102 


190 


X102 


200 


X102 


210 


X102 


220 


X102 


230 


X102 


240 


X102 


250 


X102 


260 


X102 


270 


X102 


280 


X102 


290 


X102 


300 


X102 


310 


X102 


320 


X102 


3 30 


X102 


340 


X102 


350 


X103 


000 


X103 


010 


X103 


020 


XI 03 


030 


X103 


040 


X103 


050 


X103 


060 


X103 


070 


X103 


080 


X103 


090 


X103 


100 


X103 


110 


X103 


120 


X103 


130 


X103 


140 


X103 


150 


X104 


000 


X104 


010 


X104 


020 



-107- 



PROCESS IS X112 TESTN. LESS 



J3. REPLACE TOP OF H5 WITH J3. 



IPLN OF J3 



SDSC OF J3 



AFFECTED CELL IS 97 





91 






X22 






94 





91 


92 





92 




X30 
X112 
X31 






93 





93 



X122 






X120 





94 









95 





95 


96 





96 




X45 
97 
X46 






98 





97 


99 





99 




X33 
LIO 
X34 






N116 





98 


910 





910 



X33 






NO 





X105 


90 





90 




X20 

920 

X25 

91 

X24 






92 





91 


93 





93 




X33 
LIO 
X34 






N3 


c 


92 


94 





94 



X71 






95 





9 5 









97 





97 


98 





98 




X41 

X175 





X104 


030 


X104 


0^0 


X104 


050 


X104 


060 


X104 


070 


X104 


080 


X104 


090 


X104 


100 


X104 


110 


X104 


120 


X104 


130 


X104 


140 


X104 


150 


X104 


160 


X104 


170 


X104 


180 


X104 


190 


X104 


200 


X104 


210 


X104 


220 


X104 


230 


X104 


240 


X104 


250 


X104 


260 


X104 


270 


X104 


280 


X104 


290 


X104 


300 


X104 


310 


X104 


320 


X105 


000 


X105 


010 


X105 


015 


X105 


016 


X105 


020 


X105 


030 


X105 


040 


X105 


050 


X105 


060 


X105 


070 


X105 


080 


X105 


090 


X105 


100 


X105 


110 


X105 


120 


X105 


130 


X105 


140 


X105 


150 


X105 


160 


X105 


170 


X105 


180 


X105 


190 


X105 


200 


X105 


210 



-108- 



INPUT STATE OF H5 



OUTPUT STATE OF H5. 



DSCN 

PROCESS IS X113 

P2(C). REPLACE TOP OF C WITH 

TOP OF HO. 

DSCN 



IPLN OF P2(C) 



SDSC OF P2(C) 



AFFECTED CELLS ARE 
96 AND 97 



INPUT STATE OF HO 





X75 






99 






X76 






910 





99 



X2 






XI 





910 



911 






XI 





911 


912 





912 




X32 

X36 

X33 

LIO 

X34 






N3 





920 


921 





921 



X30 






X113 





X106 


90 





90 




X20 

930 

X22 

920 

X25 

91 

X24 






92 





91 


93 





93 




X33 
L16 
X34 






N2 





92 


94 





94 



X71 






95 





95 



96 






97 





96 


98 





98 


X41 

X170 

X75 

99 

X76 






910 





99 








X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X105 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 



220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
335 
336 
340 
350 
360 
370 
380 
390 
400 
410 
000 
010 
012 
013 
015 
016 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 



-109- 



OUTPUT STATE OF HO 



NAME IS VARIA3LE. X4 



INPUT STATE OF C 



OUTPUT STATE OF C 



PROCESS IS X114. 



ARG. IS X125. 

Pl(S). ADD S TO TOP OF HO. 



IPLN OF PKS) 



SDSC OF PKS) 





X3 






XI 





910 









XI 





97 


914 





914 




X41 

X4 

X75 

915 

X76 






916 





915 



X2 






XI 





916 



X3 






XI 





920 









921 





921 


922 





922 




X43 
N2 
X45 






X4 





930 




X30 
X114 
X31 






931 





931 









X125 





X107 


90 





90 




X20 

930 

X22 

920 

X25 

91 

X24 






92 





91 


93 





93 




X33 
L16 
X34 






Nl 





92 


94 





94 



X71 






95 





95 








X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X106 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 



290 
300 
310 
320 
330 
340 
341 
342 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
000 
010 
012 
013 
015 
016 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 



-110- 



AFFECTED CELL IS HO 



97 
98 



INPUT STATE OF HO 
OUTPUT STATE OF HO 



DSCN 

PROCESS IS X115. 

ARG. IS X126 



99 
910 

920 

921 
922 



930 



931 
X11C 



911 
912 
914 
915 
Xlll 



911 
912 
913 
914 



97 

98 



X41 

X170 

X75 

99 

X76 

910 



XI 



X3 

XI 



921 

922 



X43 

Nl 

X45 

X3 



X30 

X115 

X31 

931 



X126 



911 

912 

X31 

914 

915 

X31 
21INSLR 
21T 

21AT EN 
21D OF 



911 

912 

913 

914 

915 

916 

X31 

918 

X31 
21THE V 
21ALUE 
21-OF T 
21HE AT 



X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X107 
X110 
X110 
X110 
X110 
X110 
X110 
X110 
X110 
X110 
X110 
X110 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 
Xlll 



170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
000 
010 
020 
030 
040 
050 
060 
001 
002 
004 
005 
000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
001 
002 
003 
004 



PROCESS TESTN ( ) LESS < ) 



-111- 



915 21TRIBU 

916 21TE 
918 210F 
X112 

911 
912 
X31 
914 
915 
916 
X31 

911 21TEST- 

912 21N IF 

914 21IS LE 

915 21SS TH 

916 21AN 

PROCESS. SET H5 - X113 ° 

912 
913 

911 21SET H 

912 215 MIN 

913 21US 

PROCESS. OUTPUT (0) TO ( ). X114 

912 
913 
X31 

911 210UTPU 

912 21T (0) 

913 21 TO 

PROCESS. INPUT ( ). Xl15 ° n 

X31 
911 21INPUT 

ARG. X120 (1) X120 9 9 ° z Q 

90 
X32 
X35 
X37 
91 
X45 
X170 

91 
X151 
X150 

92 21(1) 
X121 90 
90 

X32 
X37 
X22 
94 



TYPE- HO LIST LOCATION 



ARG. X121 

TYPE- DETERMINER 

JDEF IS 94 



Xlll 


005 


Xlll 


006 


Xlll 


008 


X112 


000 


X112 


010 


X112 


020 


X112 


030 


X112 


040 


X112 


050 


X112 


060 


X112 


070 


X112 


080 


X112 


090 


X112 


100 


X112 


110 


X112 


120 


X113 


000 


X113 


010 


X113 


020 


X113 


030 


X113 


040 


X113 


050 


X113 


060 


X114 


000 


X114 


010 


X114 


020 


X114 


030 


X114 


040 


X114 


050 


X114 


060 


X114 


070 


X115 


000 


X115 


010 


X115 


020 


X115 


030 


X120 


000 


X120 


005 


X120 


010 


X120 


020 


X120 


030 


X120 


040 


X120 


050 


X120 


060 


X120 


070 


X120 


080 


X120 


090 


X120 


100 


X120 


no 


X121 


000 


X121 


010 


X121 


020 


X121 


030 


X121 


035 


X121 


. 036 



-112- 



DSCN IS 91. 



PROCESS IS Xlll. 



ARGS. ARE 

X122 

X123 



ARG. X122 (0) 



TYPE- HO LIST LOCATION 



ARG. X123 (2) 



TYPE- HO LIST LOCATION 





X20 






91 





91 


92 





92 




X30 
Xlll 
X31 






93 





93 



X122 






X123 





94 









95 





95 


96 





96 




X45 
97 
X46 






98 





97 


99 





99 




X33 
LIO 
X34 






N10 





98 


910 





910 



X33 






NO 





X122 


90 






92 





90 




X32 

X35 

X37 

91 

X45 






X170 





91 









X151 





92 


21(0) 




X123 


90 






92 





9 




X32 
X35 
X37 

91 
X45 






X170 





91 




X151 

X150 






X150 






X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X121 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X122 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 
X123 



040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
000 
005 
010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
000 
005 
010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 



-113- 



ARG. X124 ONO 



ARC X125. VARIABLE S2 . 



ARG. X126. VARIABLE 50. 



SYMB HO 



92 


21(2) 




X124 


90 





90 




X32 

X36 

X37 

91 

X45 






92 





91 








92 


93 





9 3 




X33 
L14 
X34 






NO 





X125 


90 





90 




X32 

X36 

X37 

91 

X45 






X4 





91 








X126 


90 





90 




X32 

X36 

X37 

91 

X45 






X3 





91 








X150 




911 
912 
913 





911 


21THE 


N 


912 


21EXT 





913 


21F 




X151 




911 
912 
913 





911 


21THE 


c 


912 


210NT! 


EN 


913 


21TS OF 


X170 


90 


c 


90 




X32 

X35 

X33 

L8 





X123 


120 


X124 


000 


X124 


010 


X124 


020 


X124 


030 


X124 


040 


X124 


050 


X124 


060 


X124 


070 


X124 


080 


X124 


090 


X124 


100 


X124 


110 


X124 


120 


X124 


130 


X124 


140 


X125 


000 


X125 


010 


X125 


020 


X125 


030 


X125 


040 


X125 


050 


X125 


060 


X125 


070 


X125 


080 


X126 


000 


X126 


010 


X126 


020 


X126 


030 


X126 


040 


X126 


050 


X126 


060 


X126 


070 


X126 


080 


X150 


000 


X150 


010 


X150 


020 


X150 


030 


X150 


001 


X150 


002 


X150 




X151 


000 


X151 


010 


X151 


020 


X151 


030 


X151 


001 


X151 


002 


X151 


003 


X170 


000 


X170 


010 


X170 


015 


X170 


016 


X170 


020 


X170 


030 



-114- 



SYMB HI 



SYMB H2 



SYMB. H5 



LIST OF SEGMENTS 
COMPOSING J77 



FOR 





X34 






NO 





X171 


90 





90 




X32 

X36 

X33 

L8 

X34 






Nl 





X172 


90 





90 




X32 

X36 

X33 

L8 

X34 






N2 





X175 


90 


c 


90 




X32 

X36 

X33 

L8 

X34 






N5 





X180 




90 
91 
92 






93 





90 









94 





94 


940 





940 



X45 






941 





941 


942 





942 




X33 
LIO 
X34 






N50 





91 









95 





95 


950 





950 



X45 






951 





951 


952 





952 




X33 
LIO 
X34 





X170 
X170 
X171 
X171 
X171 
X171 
X171 
X171 
X171 
X171 
X172 
X172 
X172 
X172 
X172 
X172 
X172 
X172 
X175 
X175 
X175 
X175 
X175 
X175 
X175 
X175 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 



040 
050 
000 
010 
015 
016 
020 
030 
040 
050 
000 
010 
015 
016 
020 
030 
040 
050 
000 
010 
015 
016 
020 
030 
040 
050 
000 
005 
010 
015 
020 
025 
030 
035 
040 
045 
050 
055 
060 
065 
070 
075 
080 
085 
090 
095 
100 
105 
110 
115 
120 
125 
130 
135 



-115- 





N60 





92 




96 

97 






98 





96 


960 





960 




X43 

Nl 

X44 

N2 

X45 






961 





961 


962 





962 




X33 
L8 
X34 






NO 





97 


970 





970 



X43 

Nl 
X44 
Nl 
X45 






971 





971 


972 





972 



X33 

L23 
X34 






NO 





98 


980 





980 



X45 






981 





981 


982 





982 




X33 
LIO 
X34 






N2 





93 



99 






910 





99 


990 





990 




X43 

N3 

X44 

NO 

X45 






991 






X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 



140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 
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FLOW DIAGRAM FOR J77 



991 


992 





992 




X33 
L8 
X34 






NO 





910 


995 





995 



X45 






996 





996 


997 





997 




X33 
LIO 
X34 






N30 





X181 




90 
91 
92 






93 





90 


905 





905 




X41 

Nl 

X43 

NO 

X46 






N2 





91 


915 





915 




X41 

N2 

X43 

N7 

X45 

N4 

X46 






N3 





92 


925 





925 




X41 

N3 

X43 

N7 

X45 

N2 

X46 






N4 





93 


935 





935 




X41 
N4 
X43 





X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X180 
X160 
X180 

xiao 

X180 
X180 
X180 

xiao 

X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 
X181 



410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
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ROUTINE J77 



X182 

90 



91 
92 



LIST OF COMPILED ROUTINES 
WITH DSCNS. 



X196 



X197 



X198 
90 



DESCRIbA3LE N-LlST 



X199 



KICKOFF 



NO 

X46 

NO 

90 



X41 

91 

92 



X33 

L10 

X34 

N77 



X101 

X102 

X104 



X20 

X24 

90 



X20 

U134 

X24 

U140 



NO 

Nl 

N2 

N3 

N4 

N5 

N6 

N7 

N8 

N9 

Tl 


















X181 

X181 

X181 

X182 

X182 

X182 

X182 

X182 

XI 82 

X182 

X182 

X182 

X182 

X196 

X196 

X196 

X196 

X197 

X197 

X197 

X198 

X198 

X198 

X198 

X198 

X198 

X199 

X199 

X199 

X199 

X199 

X199 

X199 

X199 

X199 

X199 

X199 

Tl 



380 
390 
400 
000 
010 
020 
030 
040 
050 
055 
060 
070 
080 
000 
010 
020 
030 
000 
010 
020 
000 
010 
020 
030 
040 
050 
000 
010 
020 
030 
0^0 
050 
060 
070 
080 
090 
100 
000 



002793 



002793 
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Appendix B 
PROGRAM LISTING OF AN INFORMATION- ANNEXING SCHEME 

The listing in this Appendix is for an annexing 
routine, capable of annexing to memory the contents of 
sets of sentences of the kinds considered in Part III. 
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IS SYMBOL 
AND DO 90 



IN riJNCTlON 
FXIT 
(0) AS VALUE 



OF THF (1) 



<0> 



5306M0. PRFPARF LIST (o> FOR 

3073 Ml. OUTPUT <0> IS VALUE 

3075 (1) IS FUNCTION 

307ft X99= ... IS THE 

3077 VALUF OF ... 

3078PUT FUNCTION IN W0 

3080 

3081 

3083IF VALUF 

3084FIND IT, 

3086 

3087 

3091 

3093 

3094 

3089BRING 

3097 AND 

5307ASSIRN 

3090 

3098 

3100 

3102 

3103SIMPLIFY 

3104 

3106 

3107 

3109 

3110 

3111 

3114 

3118 

3120 

3122 

3123 

3124 

3129 

3130 

3132 

3133 

3134 

3136 

3116 

3139 

3140 

3141 

3143 

3127ASSIGN 1W0 

3145 AS VALUF 

3147 

3148 

3150IF J8l<lWl>*X98 

3152 PUT 1W0 AT END 

3153 



OF J81<1W1> OF (0) 



OF (0) 



2 


A 




10 




2 


V 




100 




2 


N 




100 




2 


X 




200 




2 

5 


Y 




200 




MO 


4oHQ 




M000010 






10X99 




M 2 






J62 




M000030 






J75 




M000040 






J50 




Monoo^o 






4QH0 




MQ00060 






J70 




M000070 






4QH0 




M000080 






J60 




MQ00090 






70J7 




M000095 






J60 




M000100 






30H0 




M000110 






70 


90 


MQ00120 






J60 




MO 01 30 






52H0 


90 


M000140 




90 


11W0 




M000150 






J6 


J30 


M000160 




Ml 


J4? 

J21 
11W1 
40HQ 

M20 

M21 
40H0 

M20 
20W1 

J71 

J71 




M001010 
M001020 
M001025 

MQ01026 
M001027 

M001028 
M001029 




91 


liwi 

J83 

7090 

30H0 
J90 
J136 

60W2 
910 

11W1 
J60 
J68 

UW2 




M001030 
M001040 
M001050 
MQ01060 
M001070 
M001080 
M001090 
M0011 10 
M001140 
M001150 
M001160 
MQ01170 






20W0 


91 


MQOllflO 




90 


11W1 
J82 
91 

liwi 




M001190 
M001195 
M001210 
M001230 






J71 


J3? 


M0O1240 




910 


11W0 

liwi 

J81 
4QH0 
10X98 

J2 
70J11 




MQ01250 
M001260 
M001270 
M0012H0 
M001290 
M 1 3 
M001310 
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OUTPUT LIST 
GENERATOR LIST 
EXPRESSION 



3155 

5308 

3128 

3117 

3115 

3158 

316 

3161 

316? 

3163 

3165 

3112 

3166 

3167 

3168 

3169 

3171 

5309DELFTF X98 TO X97 OF <0> 

317? 

5310M4, CREATE DESCRIPTION 

3174 OP EXPRESSION <0> 

31750UTPUT (0) IS DESCRIPTION 

3176 

3178 

3180 

31811W0 IS 

31831W1 IS 

318S1W2 IS 

3186 

3190 

319? 

3193 

31881W2 

3196 

3197 

3199FIND 

3200APD 

320? FOR 

3 20 4 

3205 

3207 

3208 

3209 

3211PUT 

3213 

5311M5. 

3189 

32150UTPUT 

3216 

3220 

3222 

3223 

3228 

3230 

3218 

3?33 

3226 

3237 

5312M6. PUT COMPONENTS OF (1) 

3238 OF TYPE (2) 



IS CURRFNT EXPRESSION 



ITS TYPE 
IT TO END 
TYPE 



OF VALUF LIST 



COMPONENTS ON GEN. LIST 
FIND TYPE OF EXPRESSION (0) 



(0> IS TVPF 





30H0 


J65 


M001320 


M2 


M10 
40H0 
J150 




M002010 




J4 




M002015 




1090 




M002020 




J100 




MQ02025 




J154 








J155 








10^105 




M002026 




M4 


M7 


M002027 


90 


MO 




MQ02030 




Ml 




M002040 




J154 




M002045 




J155 




M002046 




10X105 




MQ02050 




J150 


J4 


M002060 


M3 


10^97 




M003010 




10^98 


M26 


M003020 


M4 


J90 




MQ04010 




J90 




M04 020 




J5? 




MQ4 030 




liwi 




M004032 




10X100 




M 4 3 4 




J65 




M004036 




liwi 




M04 040 




11W2 




M04 050 




J64 




MQ4 060 




liwi 




MQ4 070 




1090 




MQ4 080 




J100 




MQ4 090 




liwo 


J3? 


M004100 


90 


4QH0 




M004 0110 




J152 




-■ 




60W2 








M5 




MQ4 120 




40H0 




M04 130 




11W0 




M04 140 




J6 




MQ4 150 




11W2 




M04 160 




J6 




MQ4 170 




J13 




MQ4 180 




11W2 




MQ4 190 




liwi 




MQ04200 




M6 


J4 


MQ04210 


M5 


JO 




M005010 




12H0 




M05 015 




J60 




MQ5 020 




30H0 




M05 030 




70 


90 


M005050 




J60 




M05 050 




30H0 




M05 060 




7091 




M05 070 




10X85 





M05 080 


90 


30HO 




M O.fl 5 9 




10X86 





M005095 


91 


10X45 





M05 100 


92 


30HQ 


91 


MO 5.1 10 


M6 


J52 




M006010 




11W? 




M06 020 
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3?270N RFMfcRATOW LIST (0) 

3219N0 OUTPUT 

3240 

324? 

3?44 

3246 

3247 

3249 

3251 

3253 

3256 

325* 

3261 

3266 

3268 

3270 

3272 

3 273 

3254 

3276 

327A 

3280 

3281 

3 28 3 

3285 

3286 

3264 

5313M7 

3277 

3265 

3255 

3288 

3290 

3292 

3293 

3295 

3297 

3262 

3299 

3300 

3304 

3306 PRINT LIST 
3302 SPACE 
5316M10. READ LIST 
3303 
3301 

3307 AND STOPE 
3306 LISTS <0> 
3310 
3311SFT 

3312 

3313READ NEXT LINE 

331« 

UP STATEMENT 



. PRINT DESCRIPTION (0) 

SAVE IT IN WO 

PRINTS ITS LIST OF DLS 



PRINT ITS LIST OF LIST 



PRINT ITS LIST OF SYMBOLS 



PRINT ATTRIBUTE 



OF STATEMENT 



AS LIST OF 



UP OUTPUT LIST 



3320SET 

3321 

3322SPT 

3324 

3325SET 

3326 

3328 



LIST 

POINTER TO PSJ 
POINTER TO FIRST SUMB 





10X45 


M 6 3 




J? 


M06 040 




70 J3? M06 050 




11W0 


M006052 




10X100 


MQ06054 




J62 


MQ06056 




?owo 


M006058 




11W2 


M06 060 




10X85 


M06 070 




J2 


M06 080 




7090 


M06 090 




11W1 


M006141 


96 


J60 


M006H2 




7092 


M006143 




12H0 


M006144 




liwo 


M006145 




J6 


M006146 




J63 96 


M006147 


90 


12W1 


M06 150 


91 


J60 


M06 160 




7092 


M06 170 




J60 


MQ06175 




12H0 


MQ6 180 




liwo 


M06 190 




J6 


MQ6 200 




J63 91 


M006210 


92 


3QH0 J32 m 6 230 


M7 


J40 


M007010 




60W0 


MQ07020 




10X86 


M002030 




910 


MQ07040 




liwo 


M007050 




10X85 


M007060 




910 


M007070 




11W0 


M007080 




10X45 


M007090 




910 J30 M007100 


910 


4QH0 


MQ07110 




J152 


M007120 




J10 


MQ07130 




7090 


M007140 




J151 


MQ071 50 


90 


J154 J155 MQ07160 


M10 


JO 
J154 


M100O5 




10W25 


M10010 




Mil 


M10020 




10W30 


M 1 3 




Mil 


M10040 




J90 


M10050 




J50 


M10060 


90 


J180 


M10070 




7091 


M10080 




J90 


M100«0 




J136 


M101D0 




11W25 


M10110 




J124 


M10120 




J184 


M10130 




7091 


M10135 




30H0 


M10140 
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3331 


92 


11W30 




M10150 


3334 




Jl?4 




M10160 


3335MEASURE SYMR 




J183 




M10170 


3336 




30H0 




M1018O 


3338 AND SAVF IT 




40H0 




M10100 


3340AND INPUT IT TO HO 




Jiei 




M10190 


3341PUT IT AT END OF STATEMENT 1 1ST 




J65 




M10200 


334? 




11W25 




M10210 


3344FIND NEXT SYMR 




J184 




M10220 


3345 




30H0 




M10230 


3 3 50 




7093 


92 


M10240 


3316 


91 


30W25 




M10250 


3 3 53 




30W30 




Mlf1260 


3 3 55 




11W0 


J3 


M10270 


3348 


93 


nwo 




M102H0 


335B 




J6 




M10290 


3359 




J65 


90 


Min300 


5317M11, SET UP D.T. IN (0) 


Mil 


J50 




Mil 010 


3349 




J90 




M 1 1 2 


3347 




J124 




M11030 


333? 




4J.W0 




Mil 040 


3317 




21W0 


J30 


Mil 050 


5326M20. CREATE FIND LIST 


M20 


J50 




M020010 


3314 FROM DESCRIPTION LIST (0) 




J90 




M020020 


3360 OUTPUT (0) IS FIND LIST, 




4QH0 




M020030 


3362 




liwo 




M020040 


3366 




1090 




M020050 


3368 




J100 




M020060 


3369 




30H0 


J30 


M020065 


3 36 4 


90 


J64 




M020H70 


3371 




40H0 





M020080 


5327M?l. REDUCE FIND LIST (0) 


M21 


J41 




MQ21010 


3365 OUTPUT (0) IS REDUCED LIST 




40H0 




M021020 


3374 




J60 




M0210JO 


3 375 




60W0 




M021040 


3377 FIND NEXT ARGUMENT 




52H0 




M021050 


3379 


92 


liwo 




MQ21060 


3382L0CATF NEXT DETERMINER 




J60 




M021070 


3386 IF NONE, GO TO 90 




7090 




M021080 


3388FIND DETERMINER 




52H0 




M0P1090 


3390 SAVE IT 




60W1 




MQ21100 


3392DETERMINE FUNCTION 




J10 




M021H0 


3396IF NO VALUE. GO TO 91 




7Q91 




M021120 


3398DFLETE ARGUMENT FROM LIST 




11W0 




M021140 


3400 




J68 




M021140 


3401RFPLACE DETERMINER WITH VALUE 




61W0 


92 


M021150 


3384END OF LIST 


90 


30H0 




M021160 


3404 




30H0 


J31 


MO21170 


3394PR0CFSS X97 OR QUIT 


91 


11W1 




M021180 


3407 




10X97 




M021190 


3409 




J2 




M021200 


3410 




70J31 




M021210 


3412P0INT TO PREDECESSOR OF X97 




liwo 




M021220 


3414AND PROCESS IT 




M22 




M021?i0 


3418 




7093 




M021240 


3420 




61WQ 




M021250 


3425 




94 


92 


M021254 


3423 


94 


JO 




M0?l?55 


3426 




liwo 




M0212S6 


3428 




M24 




MQP1260 
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IT AT HEAD OF PART DESCRlPT 



IT 



IT FOR ARG 



<0> 



3429DFI.FTF X9« 

3431 

3416CRFATF ORJFCT FOR 

3433SURPESCRIPTI0N 

3435C0PY PART DESCRIPTION 

3436 

343PCRFATF NEW OBJECT 

3439 

3440 

344? 

3444 

3446 

3447PUT 

3448 

3450 

3451PUT IT AT FND OF ARG LIST 

345? 

3454DFSCRIRF 

3455 

3456 

3457SURSTITUTE 

3459 

5328M22. IDENTIFY LIST MfcMBFR 

3424 

3417 WITH ARG. LOCATION 

3415 X97 AT N(0) 

3395IF IDFNTIFIED, OUTPUT 

3385(0) IS NAME OF MEMBER, 

3461IF NOT IDENTIFIED* NO 

34630UTPUT, FIND LIST NOT 

3464 

3465 

3467 

3469 

3380MUTILATFD 

3472 

3476 

3478 

3474 

5329M23. COPY 

3475 X97 TO 

3460 OUTPUT 

3482 

3484 

3486 

3487 

3489 

3490 

3491 

3 49 3 

3498D0 

3500 

3496 

3502IF 

3 50 4 

3505 

3509 

3511 

3507IF 

3512 



DESCRIPTION 
X98 OF (0) 
(0 ) IS COPY 



FROM 



TEST IF * X97 

PUT LOC OF X97 
CREATE NAME OF 



OUT 
COPY 



90 ON CELLS OF (0) 



SYMB IS X98, QUIT 



NOT. ADD TO LIST 



11W0 




M 2 1 2 7 


J60 


J68 


MQ21280 


93 4flW2 




M ? 1 3 


11W0 




M 021 310 


M23 




M 2 1 3 2 


20W2 




M 2 1 3 3 


J90 




M 2 1 3 4 


J136 




M 2 1 3 « 5 


40H0 




M 2 1 3 5 


40H0 




M 2 1 3 6 


11W2 




M 2 1 3 7 


J6 




M 2 1 3 8 


J64 




M 2 1 3 9 


12W0 




M021400 


J6 




"021«10 


J65 




M021120 


11W2 




MQ21130 


M20 




M02144C 


M0 




M0214S0 


Ml 




M021160 


21W0 




MQ21470 


94 


J32 


M021480 


M22 JO 




M022010 


12H0 




MQ22015 


J50 




M022020 


M23 




M022030 


4QH0 




M022040 


11W0 




M022050 


1090 




M022060 


J100 




MQ22070 


J5 




M022072 


70 


J30 


M 2 2 / 4 


30H0 




MQ22076 


30H0 


J30 


M022078 


90 60^0 




M022080 


M?5 




M022090 


70 


91 


M022100 


4QH0 


J4 


MQ221 10 


91 51W0 


J3 


M022120 


M23 JO 




MQ23010 


91 J60 




M023020 


70J7 




M023030 


12H0 




M 2 3 4 


10X97 




M023050 


J2 




M023060 


7Q91 




M023070 


J50 




M023080 


J90 




M023090 


40HO 




M023100 


11W0 




M023110 


1090 




M ? 3 1 2 


J100 


J30 


M 2 3 1 3 


90 4QH0 




M023140 


10X98 




MQ23150 


J2 




M023160 


J5 




M023170 


70 


92 


M023180 


J8 


J8 


M023190 


92 J65 




M023200 


4QH0 





M 2 3 2 1 
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5330DF-L 

3506 

5331M25 

3495 D 

3515 

3517L0C 

3518SAV 

3520FIN 

352? 

3524 

352MS 

3530IF 

3532FIN 

3533IF 

3535IF 

352PC0M 

35380F 

3540 

3541 

3543 

3545AND 

5332M26 

35290F 

3473TES 

3547NOT 

3548 

3550 

3552 

3553 

3555 

3557 

3558 

3 56 

3562 

3564 

3565 

3567 

3569 

3571 

3 572 

3 57 4 

5619 
5296 
3561 
3576 
3577 
3578 
3579 
5297 
3580 
3581 
3582 
3583 
3584 
5298 
3 58 5 
3586 
3 58 7 
3588 



ETE X97 TO X98 OF <0> 

. TEST IF <0> FITS 
ESCRTTPTION <1> 

ATE NEXT DETERMINE 
HE LOCATION 
IT 



IT X99 

SO, TERMINATE TEST 

D VALUE OF (0) 

NONE, EXIT WITH - 

SO, SURSTITUTE IT FOR 

PARE VALUE WITH VALUE 

DESCRIPTION 



M24 

M25 
91 



<0> 



90 



EXIT WITH SIGNAL 

DELETE SECT FROM <o> TO (1) 
LIT (o> . NO OUTPUT, 
TS THAT CN(2>*<0> , IF (1) 

ON LIST, DOES NOTHING 



M26 



90 



X113 

AO 



Al 



A2 



10X98 
10X97 

J51 
11W0 
11W1 

J60 
60W1 
52H0 
40H0 
10X99 

J? 
70 

J10 
7QJ31 
20W0 
30H0 
11W1 

J60 
70J7 
52H0 

J2 

J52 

11W2 
11W1 

J77 
70J32 
11W2 

J60 
12H0 
11W0 

J2 
70J7 

J68 
11W2 

J60 
70J7 
1?H0 
11W1 

J2 
7090 
30H0 
1 



X113 

X99 

X31 

X20 

X105 



X114 

X9V 

X33 

X25 

xios 



X115 

X116 

X99 

X34 



M26 



90 



91 



J31 



J32 



M024010 

M024020 

M025010 

M025020 

M025030 

M025040 

M025050 

M025060 

M025070 

M025080 

M025090 

M025100 

M 02 5110 

M025120 

M025130 

M0251 40 

M025150 

M025560 

M 02 51 70 

M025180 

M025190 

M026010 

M026020 

M026030 

M026040 

M026050 

M026060 

M026070 

M026080 

M026090 

M026100 

M026110 

MQ26120 
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